diff --git a/asdf.lisp b/asdf.lisp
index 34f6593e9b40da7031a81e4133ca10ba686cd766..cc1b3b096d3de888ff08d11df2a5c7f8ce738f67 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.77 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.78 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -106,7 +106,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.77 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.78 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -118,7 +118,7 @@
 (defvar *compile-file-warnings-behaviour* :warn)
 (defvar *compile-file-failure-behaviour* #+sbcl :error #-sbcl :warn)
 
-(defvar *verbose-out* *trace-output*)
+(defvar *verbose-out* nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; utility stuff
@@ -803,7 +803,7 @@ system."))
 		    :original-initargs args args))
 	 (*verbose-out*
 	  (if (getf args :verbose t)
-	      *verbose-out*
+	      *trace-output*
 	      (make-broadcast-stream)))
 	 (system (if (typep system 'component) system (find-system system)))
 	 (steps (traverse op system)))