diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index 21c6a03..51071ca 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -16,7 +16,7 @@ the processing of a new token.")
 reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
 
 (defclass token ()
-  ((%source :accessor source :initarg :source)))
+  ((%source :accessor source :initarg :source :initform nil)))
 
 ;; Tokens containing user data