diff --git a/collects/macro-debugger/stxclass/private/parse.ss b/collects/macro-debugger/stxclass/private/parse.ss
index 967678ba77..c178bb0150 100644
--- a/collects/macro-debugger/stxclass/private/parse.ss
+++ b/collects/macro-debugger/stxclass/private/parse.ss
@@ -74,7 +74,7 @@
   (with-syntax ([k k] [x x] [p p] [reason reason]
                 [fc-expr (frontier->expr fc)])
     #`(let ([failcontext fc-expr])
-        (printf "failed: reason=~s, p=~s\n  fc=~s\n" reason p failcontext)
+        #;(printf "failed: reason=~s, p=~s\n  fc=~s\n" reason p failcontext)
         (k x p 'reason failcontext))))
 
 ;; rhs->pks : RHS (listof SAttr) identifier -> (listof PK)