diff --git a/lib/ikarus.boot b/lib/ikarus.boot
index a2873d5..eb4f26c 100644
Binary files a/lib/ikarus.boot and b/lib/ikarus.boot differ
diff --git a/lib/libcompile.ss b/lib/libcompile.ss
index da35d37..f22bac8 100644
--- a/lib/libcompile.ss
+++ b/lib/libcompile.ss
@@ -188,7 +188,6 @@
     ;;;
     [$make-call-with-values-procedure 0 value]
     [$make-values-procedure 0 value]
-    [$install-underflow-handler 0 effect]
    ))
 
 (define (primitive-context x)
diff --git a/lib/libcontrol.ss b/lib/libcontrol.ss
index cb58cf1..85ea385 100644
--- a/lib/libcontrol.ss
+++ b/lib/libcontrol.ss
@@ -122,6 +122,5 @@
   (primitive-set! 'call/cf call-with-current-frame)
   (primitive-set! 'call/cc call/cc)
   (primitive-set! 'dynamic-wind dynamic-wind)
-  ;($install-underflow-handler)
   (void))
 
diff --git a/lib/makefile.ss b/lib/makefile.ss
index 8407d75..b49dfdf 100755
--- a/lib/makefile.ss
+++ b/lib/makefile.ss
@@ -46,11 +46,11 @@
     vector-set! vector-length vector vector->list list->vector
     make-string string-ref string-set! string-length string
     list->string uuid string-append substring string=? string<?
-    string<=? string>? string>=?  remprop putprop getprop
+    string<=? string>? string>=? remprop putprop getprop
     property-list apply map for-each andmap ormap memq memv assq
-    assv assoc eq? eqv? equal?  reverse string->symbol
-    symbol->string oblist top-level-value set-top-level-value!
-    top-level-bound?  gensym gensym-count gensym-prefix print-gensym
+    assv assoc eq? eqv? equal? reverse string->symbol symbol->string
+    oblist top-level-value set-top-level-value!  top-level-bound?
+    gensym gensym-count gensym-prefix print-gensym
     gensym->unique-string call-with-values values make-parameter
     dynamic-wind display write print-graph fasl-write printf format
     print-error read-token read comment-handler error exit call/cc