diff --git a/kutils.asd b/kutils.asd
index 7974415..a73627e 100644
--- a/kutils.asd
+++ b/kutils.asd
@@ -11,5 +11,5 @@
 	       (:file "lol")
                (:file "kutils")
                (:file "kutils-hash-tables")
-	       (:file "macros.lisp")))
+	       (:file "macros")))
 
diff --git a/macros.lisp b/macros.lisp
index 2e9f526..2507f69 100644
--- a/macros.lisp
+++ b/macros.lisp
@@ -4,7 +4,7 @@
 
 ;;; Various utility macros.
 
-(defmacro when (bindings &body body)
+(defmacro whenlet (bindings &body body)
   "Evaluate the bindings in a let form; if they all evaluate to T,
 evaluate @c(body) in an implicit @c(progn)."
   (let ((bindings (if (listp (first bindings)) bindings (list bindings))))