diff --git a/wip-duuqnd/user-side-compiler/asm-function.lisp b/wip-duuqnd/user-side-compiler/asm-function.lisp
index 623a096..7e76ff8 100644
--- a/wip-duuqnd/user-side-compiler/asm-function.lisp
+++ b/wip-duuqnd/user-side-compiler/asm-function.lisp
@@ -7,6 +7,8 @@
    (%address :accessor address :initarg :address
              :initform #xFEC0)))
 
+(tlk:define-simple-print-object (asm-function %name))
+
 (define-transformation (token (token-name asm-function))
   (multiple-value-bind (asm-function existsp)
       (gethash (name token) *asm-functions*)