diff --git a/collects/tests/mred/testing.rktl b/collects/tests/mred/testing.rktl
index 4c951546eb..e08d5fdac0 100644
--- a/collects/tests/mred/testing.rktl
+++ b/collects/tests/mred/testing.rktl
@@ -23,7 +23,7 @@
 	(test 'was-mismatch 'mismtach
 	      (with-handlers ([exn:fail:contract?
 			       (lambda (x)
-				 (fprintf (current-error-port) "~a~n" (exn-message x))
+                                 (printf "~a~n" (exn-message x))
 				 'was-mismatch)]
 			      [exn:fail? values])
 		expr)))])))