diff --git a/package.rkt b/package.rkt
index 2769e66..8849d9d 100644
--- a/package.rkt
+++ b/package.rkt
@@ -25,18 +25,11 @@
   
   (newline op)
   
-  ;; The support code for call/cc
-  (for-each (lambda (code)
-              (displayln code op))
-            (map assemble-basic-block 
-                 (fracture (get-bootstrapping-code))))
-
-  (newline op)
-
   (fprintf op "var invoke = ")
-  (assemble/write-invoke (compile (parse source-code)
-                                  'val
-                                  'next)
+  (assemble/write-invoke (append (get-bootstrapping-code)
+				 (compile (parse source-code)
+					  'val
+					  'next))
                          op)
   (fprintf op ";\n"))
 
diff --git a/test-assemble.rkt b/test-assemble.rkt
index 61e61a6..aa8fe24 100644
--- a/test-assemble.rkt
+++ b/test-assemble.rkt
@@ -5,7 +5,6 @@
          "parse.rkt"
          "il-structs.rkt"
          "compile.rkt"
-         "bootstrapped-primitives.rkt"
          racket/port
          racket/promise
          racket/runtime-path)
@@ -45,11 +44,6 @@
                               "(function() { "
                               
                               runtime
-                              
-			      ;; The support code for call/cc
-                              (string-join (map assemble-basic-block 
-                                                (fracture (get-bootstrapping-code)))
-                                           "\n")
 
                               "return function(success, fail, params){" 
 			      snippet
@@ -69,12 +63,6 @@
                             (display "(function() { " op)
                             
                             (display runtime op)
-
-                            (display
-                             (string-join (map assemble-basic-block 
-                                                (fracture (get-bootstrapping-code)))
-                                           "\n")
-                             op)
                             
                             (display "var myInvoke = " op)
                             (assemble/write-invoke a-statement op)