diff --git a/wip-duuqnd/user-side-compiler/high-level.lisp b/wip-duuqnd/user-side-compiler/high-level.lisp
index 51f9e68..c1d4df7 100644
--- a/wip-duuqnd/user-side-compiler/high-level.lisp
+++ b/wip-duuqnd/user-side-compiler/high-level.lisp
@@ -14,6 +14,9 @@
   (push label *compile-result*)
   label)
 
+(defun produce-comment (text)
+  (push text *compile-result*))
+
 (defmacro format-inst (destination control-string &rest format-arguments)
   `(format ,destination "~C~A~%" #\Tab (format nil ,control-string ,@format-arguments)))
 
@@ -49,7 +52,7 @@
   ((%next :accessor next :accessor normal-next :initform nil)))
 
 (defmethod generate-code :before ((node node))
-  (format t ";; ~A~%" node))
+  (produce-comment (format nil "~A" node)))
 
 (defmethod generate-code :after ((node node))
   (terpri))