diff --git a/collects/parser-tools/examples/calc.ss b/collects/parser-tools/examples/calc.ss
index 22af8fc..ae59f36 100644
--- a/collects/parser-tools/examples/calc.ss
+++ b/collects/parser-tools/examples/calc.ss
@@ -79,4 +79,4 @@
 (define (calc ip)
   ;; Make the lex-buffer
   (let ((lb (make-lex-buf ip)))
-    (calcp (lambda () (calcl lb)))))
\ No newline at end of file
+    (calcp (lambda () (calcl lb)))))
diff --git a/collects/parser-tools/private-yacc/parser-builder.ss b/collects/parser-tools/private-yacc/parser-builder.ss
index 545ecb6..7a3b5d8 100644
--- a/collects/parser-tools/private-yacc/parser-builder.ss
+++ b/collects/parser-tools/private-yacc/parser-builder.ss
@@ -175,8 +175,8 @@
                                                         ,(if src-pos
                                                              `(err #t (token-name tok) (token-value tok) (cadr ip) (caddr ip))
                                                              `(err #t (token-name tok) (token-value tok)))
-							(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok)))))))))
-								
+							(raise-read-error (format "parser: got token of unknown type ~a" (token-name tok))
+                                                                          #f #f #f #f #f)))))))
                (lambda (get-token)
                  (let parsing-loop ((stack (list 0))
 				    (ip (get-token)))