diff --git a/src/ikarus.boot b/src/ikarus.boot
index 0f8dccb..b7b47a1 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcompile.ss b/src/libcompile.ss
index cc41da1..a5a84d4 100644
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@@ -4870,7 +4870,8 @@
          [p (optimize-ap-check p)])
     (let ([ls* (generate-code p)])
       (when (assembler-output)
-        (parameterize ([gensym-prefix "L"])
+        (parameterize ([gensym-prefix "L"]
+                       [print-gensym #f])
           (for-each 
             (lambda (ls)
               (for-each (lambda (x) (printf "    ~s\n" x)) ls))