diff --git a/src/ikarus.boot b/src/ikarus.boot
index 1234306..b653f39 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcore.ss b/src/libcore.ss
index 1ee1026..3236b4e 100644
--- a/src/libcore.ss
+++ b/src/libcore.ss
@@ -1076,10 +1076,6 @@ reference-implementation:
       (error 'string->symbol "~s is not a string" x))
     (foreign-call "ik_intern_string" x)))
   
-(primitive-set! 'oblist
-  (lambda ()
-    (foreign-call "ik_oblist")))
-
 (primitive-set! 'gensym
   (case-lambda
     [() ($make-symbol #f)]
diff --git a/src/makefile.ss b/src/makefile.ss
index 27c13ec..dc25fe2 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -48,7 +48,7 @@
     string<?  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?
+    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