kmx.io/cl-can

diff --git a/can.lisp b/can.lisp
index 7b318e1..b17831f 100644
--- a/can.lisp
+++ b/can.lisp
@@ -47,8 +47,8 @@
       (flet ((unify (r x wild)
 	       (if (facts:binding-p r)
 		   (push (cons r x) bindings)
-		   (push `(or (lessp:lessp-equal ,r ,x)
-			      (eq ,r ,wild))
+		   (push `(or (eq ,r ,wild)
+                              (lessp:lessp-equal ,r ,x))
 			 constants))))
 	(unify o object :all)
 	(unify a action :admin)