diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index f3504b3..563727d 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -23,6 +23,11 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
 (defclass token-name (token)
   ((%name :accessor name :initarg :text)))
 
+(defmethod print-object ((object token-name) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (when (slot-boundp object '%name)
+      (format stream "\"~A\"" (name object)))))
+
 (defclass token-number (token)
   ((%value :accessor value :initarg :value)))