diff --git a/wip-duuqnd/user-side-compiler/label.lisp b/wip-duuqnd/user-side-compiler/label.lisp
index ce6e570..da37133 100644
--- a/wip-duuqnd/user-side-compiler/label.lisp
+++ b/wip-duuqnd/user-side-compiler/label.lisp
@@ -17,9 +17,9 @@
   (format nil "~A~D" prefix (incf *label-counter*)))
 
 (defun make-label (&key name name-prefix address)
-  (when (null name)
-    (setf name (make-label-name (if (null name-prefix) "L" name-prefix))))
   (when (and (not (null name)) (not (null name-prefix)))
     (warn "MAKE-LABEL with both name (~A) and prefix (~A) specified (useless)."
           name name-prefix))
+  (when (null name)
+    (setf name (make-label-name (if (null name-prefix) "L" name-prefix))))
   (make-instance 'label :name name :address address))