X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fexplain.lisp;h=015cdf45521a185b0c10f0e30461b4d8cf826744;hb=c8f9fdda5f67d41e8e32404cc7c2598f7adabafe;hp=e29b6763bb29724c7deb884a98c8a95b7d55802a;hpb=fd4b6e02bed59e2ae61823c2772460cc4ca2064f;p=fiveam.git

diff --git a/src/explain.lisp b/src/explain.lisp
index e29b676..015cdf4 100644
--- a/src/explain.lisp
+++ b/src/explain.lisp
@@ -61,7 +61,7 @@
                   (name (test-case f))
                   (description (test-case f)))
           (output "    ~A.~%" (reason f)))
-        (terpri *test-dribble*)))))
+        (terpri stream)))))
 
 (defmethod explain ((exp simple-text-explainer) results
                     &optional (stream *test-dribble*) (recursive-depth 0))