diff --git a/wip-duuqnd/user-side-compiler/tokenizer.lisp b/wip-duuqnd/user-side-compiler/tokenizer.lisp
index 086868f..6df8177 100644
--- a/wip-duuqnd/user-side-compiler/tokenizer.lisp
+++ b/wip-duuqnd/user-side-compiler/tokenizer.lisp
@@ -43,6 +43,11 @@ reading immediately. Should be a subset of *SPECIAL-TOKEN-CHARS*.")
 (defclass token-number (token)
   ((%value :accessor value :initarg :value)))
 
+(defmethod print-object ((object token-number) stream)
+  (print-unreadable-object (object stream :type t :identity t)
+    (when (slot-boundp object '%value)
+      (format stream "~D" (value object)))))
+
 (define-transformation (token (token-number reference-constant))
   (make-instance 'reference-constant :value (value token)))