diff --git a/collects/combinator-parser/private-combinator/combinator-parser.scm b/collects/combinator-parser/private-combinator/combinator-parser.scm
index 4c2412d02b..51f28f403e 100644
--- a/collects/combinator-parser/private-combinator/combinator-parser.scm
+++ b/collects/combinator-parser/private-combinator/combinator-parser.scm
@@ -83,7 +83,7 @@
     (define (rank-choice choices) (apply max choices))
     (define-values 
       (rank-misspell rank-caps rank-class rank-wrong rank-end)
-      (4/5 9/10 2/5 1/5 2/5)))
+      (values 4/5 9/10 2/5 1/5 2/5)))
   
   (define-unit out-struct@
     (import)