diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index 51071ca..f3504b3 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -21,7 +21,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
 ;; Tokens containing user data
 
 (defclass token-name (token)
-  ((%text :accessor text :initarg :text)))
+  ((%name :accessor name :initarg :text)))
 
 (defclass token-number (token)
   ((%value :accessor value :initarg :value)))
@@ -145,7 +145,7 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
                       (cond ((typep token 'token-keyword)
                              (format nil "~A" (name token)))
                             ((typep token 'token-name)
-                             (text token))
+                             (name token))
                             ((typep token 'token-number)
                              (format nil "~D" (value token)))
                             (t (car (find (type-of token) *operator-token-classes* :key #'cadr))))))