diff --git a/collects/parser-tools/private-yacc/table.ss b/collects/parser-tools/private-yacc/table.ss
index 9e85688..58b615e 100644
--- a/collects/parser-tools/private-yacc/table.ss
+++ b/collects/parser-tools/private-yacc/table.ss
@@ -142,8 +142,8 @@
 		      (loop (car rest) (cdr rest)))
                      ((accept? (car rest))
                       (fprintf (current-error-port) 
-                               "accept/reduce or accept/shift conflicts.  Check the grammar for useless cycles of productions~n"))
-		     (loop current-guess (cdr rest))
+                               "accept/reduce or accept/shift conflicts.  Check the grammar for useless cycles of productions~n")
+                      (loop current-guess (cdr rest)))
                      (else (loop current-guess (cdr rest))))))
 		 (else entry)))))
       (send a for-each-state