diff --git a/wip-duuqnd/user-side-compiler/parser.lisp b/wip-duuqnd/user-side-compiler/parser.lisp
index 76fa93b..b8de1a5 100644
--- a/wip-duuqnd/user-side-compiler/parser.lisp
+++ b/wip-duuqnd/user-side-compiler/parser.lisp
@@ -52,7 +52,7 @@ parser's debug output.")
                       token (type-of (peek-token)))
         (error-parser (source (previous-token))
                       "~A~%Got token ~A instead."
-                      error-message (previous-token)
+                      error-message (peek-token)
                       (source (previous-token))))))
 
 (defun make-token-stream (tokens)
@@ -221,8 +221,7 @@ comma ',' is required to separate arguments.")))
         (t
          (let ((expr (match-syntax assignment)))
            (consume-token 'token-end-of-statement
-                          (format nil "Couldn't find end of expression. ~A found instead."
-                                  (peek-token)))
+                          "Couldn't find end of expression.")
            expr))))
 
 (defun wire-up-statements (statements)