diff --git a/collects/combinator-parser/private-combinator/parser-sigs.ss b/collects/combinator-parser/private-combinator/parser-sigs.ss
index 435d677d84..e2f2f35aa4 100644
--- a/collects/combinator-parser/private-combinator/parser-sigs.ss
+++ b/collects/combinator-parser/private-combinator/parser-sigs.ss
@@ -25,7 +25,8 @@
        (syntax->list #`(id ...
                         #,@(map (lambda (e) #`(define-syntaxes 
                                                 (#,(datum->syntax e (string->symbol (format "~a@" (syntax-e e)))))
-                                                (values (syntax-id-rules () [_ #'(eta #,e)]))))
+                                                (values (syntax-id-rules () 
+                                                          [_ (eta #,e)]))))
                                 (syntax->list #'(id ...)))))]))
   
   (define-signature language-dictionary^ (misspelled misscap missclass))
diff --git a/collects/profj/comb-parsers/parser-units.scm b/collects/profj/comb-parsers/parser-units.scm
index d69e58183e..145a5a3b26 100644
--- a/collects/profj/comb-parsers/parser-units.scm
+++ b/collects/profj/comb-parsers/parser-units.scm
@@ -336,7 +336,7 @@
     
     (define new-class
       (choose ((sequence (new name O_PAREN C_PAREN) id)
-               (sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id))
+               (sequence (new name O_PAREN (comma-sep expression@ #;(eta expression) "arguments") C_PAREN) id))
               "class instantiation"))
     
     (define (new-array type-name)