diff --git a/src/ikarus.boot b/src/ikarus.boot
index d9d3f08..90d64f3 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/library-manager.ss b/src/library-manager.ss
index 7c1eb81..ebfa23e 100644
--- a/src/library-manager.ss
+++ b/src/library-manager.ss
@@ -439,7 +439,6 @@
       [syntax-error             syntax-error-label             (core-prim . syntax-error)]
       [generate-temporaries generate-temporaries-label (core-prim . generate-temporaries)]
       [free-identifier=?    free-identifier=?-label    (core-prim . free-identifier=?)]
-      [chi-top-library    chi-top-library-label    (core-prim . chi-top-library)]
       [boot-library-expand boot-library-expand-label (core-prim . boot-library-expand)]
       ;;; codes
       [$closure-code  $closure-code-label (core-prim . $closure-code)]
diff --git a/src/libsyntax.ss b/src/libsyntax.ss
index 493e683..6d74025 100644
--- a/src/libsyntax.ss
+++ b/src/libsyntax.ss
@@ -2,7 +2,7 @@
 (library (ikarus syntax)
   (export)
   (import (scheme))
-  (define who 'chi-top-library)
+  (define who 'expander)
   (define-syntax no-source 
     (lambda (x) #f))
   (begin ;;; GOOD ONES
@@ -2075,7 +2075,6 @@
              (strip x '()))))
   (primitive-set! 'syntax-dispatch syntax-dispatch)
   (primitive-set! 'boot-library-expand boot-library-expander)
-  (primitive-set! 'chi-top-library run-library-expander)
   (primitive-set! 'eval-top-level  run-library-expander))