diff --git a/lib/ikarus.boot b/lib/ikarus.boot
index 159b648..a016b1c 100644
Binary files a/lib/ikarus.boot and b/lib/ikarus.boot differ
diff --git a/lib/libcompile.ss b/lib/libcompile.ss
index 8438bf9..907ce59 100644
--- a/lib/libcompile.ss
+++ b/lib/libcompile.ss
@@ -3659,7 +3659,7 @@
 (define SL_call_with_values (gensym "SL_call_with_values"))
 
 (module ()
-(list*->code*
+(list*->code* (lambda (x) #f)
   (list
     (list 0
           (label SL_car_error)
@@ -3892,7 +3892,7 @@
           (lambda (ls)
             (for-each (lambda (x) (printf "    ~s\n" x)) ls))
           ls*))
-      (let ([code* (list*->code* ls*)])
+      (let ([code* (list*->code* (lambda (x) #f) ls*)])
         (car code*)))))
 
 (define compile-file
diff --git a/lib/libintelasm.ss b/lib/libintelasm.ss
index 497384a..23796a5 100644
--- a/lib/libintelasm.ss
+++ b/lib/libintelasm.ss
@@ -864,7 +864,7 @@
 ;;;           x)))))
 
 (define list*->code*
-  (lambda (ls*)
+  (lambda (thunk? ls*)
     (let ([closure-size* (map car ls*)]
           [ls* (map cdr ls*)])
       (let* ([ls* (map convert-instructions ls*)]
@@ -881,9 +881,9 @@
               (for-each set-code-reloc-vector! code* relv*)
               code*)))))))
 
-(define list->code
-  (lambda (ls)
-    (car (list*->code* (list ls)))))
+;(define list->code
+;  (lambda (ls)
+;    (car (list*->code* (list ls)))))
 
 (primitive-set! 'list*->code* list*->code*)
 )