diff --git a/self/bytecode.scm b/self/bytecode.scm
index 54573a2..5947271 100644
--- a/self/bytecode.scm
+++ b/self/bytecode.scm
@@ -310,8 +310,6 @@
       (let ((free (sort < (k/free k)))
 	    (nregs (length free))
 	    (target (k/target k)))
-        (printf "emit-call: free=" (join int->string " " free) "\n")
-        (printn name)
         (append
          (if (= args -1)
              (LINSN 'call0 fun nregs)