diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss
index 96b5d91..454835b 100644
--- a/collects/parser-tools/private-yacc/parser-builder.ss
+++ b/collects/parser-tools/private-yacc/parser-builder.ss
@@ -115,10 +115,10 @@
                (lambda (get-token)
                  (let loop ((stack (list 0))
                             (ip (get-token)))
-                   (display stack)
-                   (newline)
-                   (display (if (token? ip) (token-name ip) ip))
-                   (newline)
+                   ;;(display stack)
+                   ;;(newline)
+                   ;;(display (if (token? ip) (token-name ip) ip))
+                   ;;(newline)
                    (let ((action (find-action stack ip)))
                      (cond
                        ((shift? action)