1 files changed, 2 insertions, 2 deletions
diff --git a/core.lisp b/core.lisp
index 968a7d9..21e18fc 100644
--- a/core.lisp
+++ b/core.lisp
@@ -58,8 +58,8 @@
                                           (failure-priority result))))
                      (when (or (> priority-cmp 0)
                                (and (= priority-cmp 0)
-                                    (>= (distance (failure-place result)
-                                                  (failure-place r))
+                                    (>= (distance (result-place result)
+                                                  (result-place r))
                                         0)))
                        (setf result r)))))
                 (t (error (format nil "Invalid return value: ~a." r))))))