1 files changed, 1 insertions, 1 deletions
diff --git a/main.lisp b/main.lisp
index b817601..b557327 100644
--- a/main.lisp
+++ b/main.lisp
@@ -9,7 +9,7 @@
   (lambda (input)
     (let ((result (funcall p input)))
       (if (failure-p result)
-        (make-failure :place (failure-place result)
+        (make-failure :place (result-place result)
                       :message (concatenate 'string message (failure-message result))
                       :priority (failure-priority result))
         result))))