X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Frun.lisp;h=d9b8c5f5ac18183e900109458d7ff0350e381235;hb=35dc0e063d9f601afdc1202e4724628525e723f0;hp=d9cb76786943e4d8711345d37ffe00cf7509095f;hpb=72d9066d70ec2354109772ec36e3a5f4fb5cb767;p=fiveam.git

diff --git a/src/run.lisp b/src/run.lisp
index d9cb767..d9b8c5f 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -188,7 +188,7 @@ run."))
 
 (defmethod %run ((test test-case))
   (when *print-names*
-    (format *debug-io* "~% Running test ~A " (name test)))
+    (format *test-dribble* "~% Running test ~A " (name test)))
   (run-resolving-dependencies test))
 
 (defmethod %run ((tests list))
@@ -196,7 +196,7 @@ run."))
 
 (defmethod %run ((suite test-suite))
   (when *print-names*
-    (format *debug-io* "~%Running test suite ~A~%" (name suite)))
+    (format *test-dribble* "~%Running test suite ~A~%" (name suite)))
   (let ((suite-results '()))
     (flet ((run-tests ()
              (loop