diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss
index 468401b84d..04c2a2054a 100644
--- a/collects/tests/mzscheme/stx.ss
+++ b/collects/tests/mzscheme/stx.ss
@@ -469,7 +469,7 @@
   (let ([b (identifier-binding s)])
     (if (list? b)
         (list* (let-values ([(name base) (module-path-index-split (car b))])
-                 (fprintf (current-error-port) ">>>>base = ~s\n" base)
+                 ;(fprintf (current-error-port) ">>>>base = ~s\n" base)
                  name)
                (cadr b)
                (let-values ([(name base) (module-path-index-split (caddr b))])