diff --git a/scsh/top.scm b/scsh/top.scm
index 02e1e9c..1a73807 100644
--- a/scsh/top.scm
+++ b/scsh/top.scm
@@ -31,10 +31,13 @@
 ;;; ensure-loaded and load-into now write to noise-port anyway
 
 (define (load-quietly filename p)
-  (load-into filename p))
+  (let-fluid $current-noise-port (make-null-output-port)
+	     (lambda () (load-into filename p))))
 
 (define (really-ensure-loaded noise . structs)
-  (apply ensure-loaded structs))
+  (let-fluid $current-noise-port (make-null-output-port)
+	     (lambda ()
+	       (apply ensure-loaded structs))))
 		      
 ;;; The switches:
 ;;; 	-o <struct>		Open the structure in current package.