diff --git a/sources/common-dylan/tests/threads/simple-locks.dylan b/sources/common-dylan/tests/threads/simple-locks.dylan
index e45e78d94..a549bf78d 100644
--- a/sources/common-dylan/tests/threads/simple-locks.dylan
+++ b/sources/common-dylan/tests/threads/simple-locks.dylan
@@ -11,7 +11,7 @@ define constant *print-lock* = make(<lock>);
 
 define method format-l (#rest args)
   with-lock (*print-lock*)
-    apply(format-out, args);
+    apply(test-output, args);
   end with-lock;
 end method;