Index: /trunk/source/lib/compile-ccl.lisp
===================================================================
--- /trunk/source/lib/compile-ccl.lisp	(revision 14160)
+++ /trunk/source/lib/compile-ccl.lisp	(revision 14161)
@@ -785,5 +785,5 @@
       (when update
 	(cwd "ccl:tests;")
-	(run-program *svn-program* '("update")))
+	(run-program *svn-program* '("update") :output t))
       (let* ((repo (svn-repository))
 	     (url (format nil "~a/trunk/tests" repo))
@@ -805,5 +805,5 @@
 		       (get-output-stream-string s))))))))
     (cwd "ccl:tests;ansi-tests;")
-    (run-program "make" '("-k" "clean"))
+    (run-program "make" '("-k" "clean") :output t)
     (map nil 'delete-file (directory "*.*fsl"))
     ;; Muffle the typecase "clause ignored" warnings, since there is really nothing we can do about