diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index 95965cc3f6..132a23caa6 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -224,9 +224,7 @@ profile todo:
                                      orig-exp
                                      (namespace-syntax-introduce
                                       (datum->syntax #f orig-exp)))])
-                   (printf "> ~s\n" (syntax->datum exp))
                    (let ([top-e (expand-syntax-to-top-form exp)]) 
-                     (printf "~s\n" (syntax->datum top-e))
                      (syntax-case top-e (begin) 
                        [(begin expr ...)
                         ;; Found a `begin', so expand/eval each contained