diff --git a/collects/tests/mzscheme/quiet.ss b/collects/tests/mzscheme/quiet.ss
index f966c9295e..0de1b20a7e 100644
--- a/collects/tests/mzscheme/quiet.ss
+++ b/collects/tests/mzscheme/quiet.ss
@@ -3,7 +3,10 @@
  'quiet-load
  #f
  (lambda ()
-   (namespace-set-variable-value! 'quiet-load "all.ss")))
+   (namespace-set-variable-value!
+    'quiet-load
+    (let ([argv (current-command-line-arguments)])
+      (if (= 1 (vector-length argv)) (vector-ref argv 0) "all.ss")))))
 
 (let ([p (make-output-port 'quiet 
 			   always-evt