kmx.io/cl-can

diff --git a/can.lisp b/can.lisp
index b17831f..07032a5 100644
--- a/can.lisp
+++ b/can.lisp
@@ -66,7 +66,7 @@
 
     (defun can (action &optional (object :all) (user :anonymous))
       (if can-lambda
-	  (funcall can-lambda action object user)
+	  (funcall can-lambda action object (or user :anonymous))
 	  (error "Please call CAN:COMPILE-RULES.")))
 
     (defun compile-rules ()