diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index dc9b651..a240692 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -29,7 +29,8 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
 (defun valid-name-p (string)
   (assert (stringp string))
   (and (not (zerop (length string)))
-       (alpha-char-p (char string 0))
+       (or (alpha-char-p (char string 0))
+           (char= (char string 0) #\_))
        (loop :for char :across (subseq string 1)
              :always (or (alphanumericp char)
                          (char= char #\_)))))