diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm
index f08e9ed549..e9e362b801 100644
--- a/collects/profj/comb-parsers/parser-units.scm
+++ b/collects/profj/comb-parsers/parser-units.scm
@@ -66,7 +66,7 @@
                    abstract native private protected public static strictfp transient volatile)))
     
     (define (close-to-keyword? t arg)
-      (printf "close-to-keyword ~a ~a~n" t arg)
+      ;(printf "close-to-keyword ~a ~a~n" t arg)
       (and (string? t)
            (member t (select-words (string->symbol arg)))))
     
@@ -311,8 +311,8 @@
               "literal expression"))
     
     (define (new-class class-name expr)
-      (choose ((sequence (new class-name O_PAREN C_PAREN) id)
-               (sequence (new class-name O_PAREN (comma-sep expr "arguments") C_PAREN) id))
+      (choose ((sequence (new class-name O_PAREN C_PAREN) id "class instantiation")
+               (sequence (new class-name O_PAREN (comma-sep expr "arguments") C_PAREN) id "class instantiation"))
               "class instantiation"))
     
     (define (new-array type-name expr)
diff --git a/collects/profj/parser.ss b/collects/profj/parser.ss
index cb5bb239ea..0f20252cf7 100644
--- a/collects/profj/parser.ss
+++ b/collects/profj/parser.ss
@@ -39,7 +39,6 @@
     (if (new-parser?)
         (lambda ()
           (let ([result (!!! (parser lexed loc))])
-            (printf "Calling new parser ~a ~n" result)
             (if (list? result)
                 (raise-read-error (cadr result)
                                   (car (car result))