diff --git a/src/ikarus.boot b/src/ikarus.boot
index 55630c9..063e331 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libcontrol.ss b/src/libcontrol.ss
index 0e85ae0..1db5aad 100644
--- a/src/libcontrol.ss
+++ b/src/libcontrol.ss
@@ -1,4 +1,9 @@
 
+(library (ikarus control)
+  (export)
+  (import (scheme))
+;(let ()
+
 (let ()
   (define call-with-current-frame
     (lambda (f)
@@ -94,4 +99,4 @@
   (primitive-set! 'call/cc call/cc)
   (primitive-set! 'dynamic-wind dynamic-wind)
   (void))
-
+)
diff --git a/src/syntax.ss b/src/syntax.ss
index f6d49ec..78a569d 100644
--- a/src/syntax.ss
+++ b/src/syntax.ss
@@ -829,6 +829,11 @@
         [primitive-ref primitive-ref-label (core-prim .  primitive-ref)]
         [$$apply     $$apply-label    (core-prim . $$apply)]
         [$arg-list     $arg-list-label    (core-prim . $arg-list)]
+        [$fp-at-base     $fp-at-base-label    (core-prim . $fp-at-base)]
+        [$primitive-call/cc     $primitive-call/cc-label    (core-prim . $primitive-call/cc)]
+        [$frame->continuation     $frame->continuation-label    (core-prim . $frame->continuation)]
+        [$current-frame     $current-frame-label    (core-prim . $current-frame)]
+        [$seal-frame-and-call     $seal-frame-and-call-label    (core-prim . $seal-frame-and-call)]
         ))
     (define make-scheme-rib
       (lambda ()