diff --git a/collects/parser-tools/yacc-to-scheme.ss b/collects/parser-tools/yacc-to-scheme.ss
index 247e0bf..d799615 100644
--- a/collects/parser-tools/yacc-to-scheme.ss
+++ b/collects/parser-tools/yacc-to-scheme.ss
@@ -37,7 +37,7 @@
      ((: ":") (string->symbol lexeme))
      (%prec (string->symbol lexeme))
      (#\| 'PIPE)
-     ((: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}")) (without-src-pos (get-token-grammar input-port)))
+     ((: #\newline #\tab " " (comment) (@ "{" (* (^ "}")) "}")) (return-without-pos (get-token-grammar input-port)))
      (#\; 'SEMI)
      (#\' (token-STRING (string->symbol (list->string (match-single-string input-port)))))
      (#\" (token-STRING (string->symbol (list->string (match-double-string input-port)))))
@@ -129,4 +129,4 @@
               (error ___)
               (tokens t et)
               (grammar ,@gram))))
-            (close-input-port i)))))
\ No newline at end of file
+            (close-input-port i)))))