diff --git a/src/ikarus.apply.ss b/src/ikarus.apply.ss
index 435b891..db3b377 100644
--- a/src/ikarus.apply.ss
+++ b/src/ikarus.apply.ss
@@ -3,7 +3,8 @@
   (export apply)
   (import 
     (except (ikarus) apply)
-    (only (scheme) $$apply $car $cdr $set-cdr!))
+    (ikarus system $pairs)
+    (ikarus system $apply))
 
   (define apply
     (let ()
diff --git a/src/ikarus.boot b/src/ikarus.boot
index b3c59b8..ef634a9 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/makefile.ss b/src/makefile.ss
index 631a0b6..9cc9f62 100755
--- a/src/makefile.ss
+++ b/src/makefile.ss
@@ -111,7 +111,7 @@
       [$codes (ikarus system $codes)]
       [$tcbuckets (ikarus system $tcbuckets)]
       [$io (ikarus system $io)]
-      ;[$lists (ikarus system $lists)]
+      [$apply (ikarus system $apply)]
       ;[$lists (ikarus system $lists)]
       ;[$lists (ikarus system $lists)]
       ;[$lists (ikarus system $lists)]
@@ -531,12 +531,13 @@
       [$read-char             $io]
       [$peek-char             $io]
       [$unread-char           $io]
+      ; (ikarus system $apply)
+      [$$apply                $apply]
       ; (ikarus system)
       [$forward-ptr?                    s  ]
       [$unbound-object?                 s  ]
       [$make-call-with-values-procedure s  ]
       [$make-values-procedure           s  ]
-      [$$apply                          s  ]
       [$arg-list                        s  ]
       [$interrupted?                    s  ]
       [$unset-interrupted!              s  ]