diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm
index 7a72b142bc..0c6a12cd29 100644
--- a/collects/profj/comb-parsers/parser-units.scm
+++ b/collects/profj/comb-parsers/parser-units.scm
@@ -665,7 +665,7 @@
     (define class
       (class-def #f #f 
                  (implements-dec identifier)
-                 (repeat (class-body (list field method constructor)))))
+                 (repeat-greedy (class-body (list field method constructor)))))
     
     (define program 
       (make-program #f