diff --git a/core/bootstrap/image/image.factor b/core/bootstrap/image/image.factor
index 7b199a5e46..43a8d9752a 100755
--- a/core/bootstrap/image/image.factor
+++ b/core/bootstrap/image/image.factor
@@ -427,32 +427,22 @@ M: curry '
     "Writing image to " write dup write "..." print flush
     <file-writer> [ (write-image) ] with-stream ;
 
-: prepare-profile ( arch -- )
-    "resource:core/bootstrap/layouts/layouts.factor" run-file
-    "resource:core/cpu/" swap {
-        { "x86.32" "x86/32" }
-        { "x86.64" "x86/64" }
-        { "linux-ppc" "ppc/linux" }
-        { "macosx-ppc" "ppc/macosx" }
-        { "arm" "arm" }
-    } at "/bootstrap.factor" 3append ?resource-path run-file ;
-
-: prepare-image ( arch -- )
-    dup architecture set prepare-profile
+: prepare-image ( -- )
     bootstrapping? on
     load-help? off
-    800000 <vector> image set 20000 <hashtable> objects set ;
+    800000 <vector> image set
+    20000 <hashtable> objects set ;
 
 PRIVATE>
 
 : make-image ( arch -- )
-    [
+    architecture [
         prepare-image
         begin-image
         "resource:/core/bootstrap/stage1.factor" run-file
         end-image
         image get image-name write-image
-    ] with-scope ;
+    ] with-variable ;
 
 : my-arch ( -- arch )
     cpu dup "ppc" = [ os "-" rot 3append ] when ;
@@ -460,7 +450,7 @@ PRIVATE>
 : make-images ( -- )
     {
         "x86.32"
-        ! "x86.64"
+        "x86.64"
         "linux-ppc" "macosx-ppc"
         ! "arm"
     } [ make-image ] each ;
diff --git a/core/bootstrap/stage2.factor b/core/bootstrap/stage2.factor
index d035744cd0..0163422f47 100755
--- a/core/bootstrap/stage2.factor
+++ b/core/bootstrap/stage2.factor
@@ -54,6 +54,7 @@ IN: bootstrap.stage2
             ] each
         ] when
     ] with-compiler-errors
+    :errors
 
     f error set-global
     f error-continuation set-global
diff --git a/core/compiler/compiler.factor b/core/compiler/compiler.factor
index 9378642951..1e6d4f8a17 100755
--- a/core/compiler/compiler.factor
+++ b/core/compiler/compiler.factor
@@ -44,7 +44,7 @@ IN: compiler
 
 : compile-loop ( assoc -- )
     dup assoc-empty? [ drop ] [
-        dup delete-any (compile)
+        dup delete-any drop (compile)
         yield
         compile-loop
     ] if ;
diff --git a/core/cpu/ppc/linux/bootstrap.factor b/core/cpu/ppc/linux/bootstrap.factor
old mode 100644
new mode 100755
index a84bff5141..3900ca7f88
--- a/core/cpu/ppc/linux/bootstrap.factor
+++ b/core/cpu/ppc/linux/bootstrap.factor
@@ -1,9 +1,10 @@
-! Copyright (C) 2007 Slava Pestov.
+! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: parser layouts system ;
+USING: parser layouts system kernel ;
 IN: bootstrap.ppc
 
 : c-area-size 10 bootstrap-cells ;
 : lr-save bootstrap-cell ;
 
-"resource:core/cpu/ppc/bootstrap.factor" run-file
+<< "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >>
+call
diff --git a/core/cpu/ppc/macosx/bootstrap.factor b/core/cpu/ppc/macosx/bootstrap.factor
old mode 100644
new mode 100755
index 016e445522..db5e3a343f
--- a/core/cpu/ppc/macosx/bootstrap.factor
+++ b/core/cpu/ppc/macosx/bootstrap.factor
@@ -1,9 +1,10 @@
-! Copyright (C) 2007 Slava Pestov.
+! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: parser layouts system ;
+USING: parser layouts system kernel ;
 IN: bootstrap.ppc
 
 : c-area-size 14 bootstrap-cells ;
 : lr-save 2 bootstrap-cells ;
 
-"resource:core/cpu/ppc/bootstrap.factor" run-file
+<< "resource:core/cpu/ppc/bootstrap.factor" parse-file parsed >>
+call
diff --git a/core/cpu/x86/32/bootstrap.factor b/core/cpu/x86/32/bootstrap.factor
index 4ce4b1684d..16083a8628 100755
--- a/core/cpu/x86/32/bootstrap.factor
+++ b/core/cpu/x86/32/bootstrap.factor
@@ -14,4 +14,5 @@ IN: bootstrap.x86
 : fixnum>slot@ arg0 1 SAR ;
 : rex-length 0 ;
 
-"resource:core/cpu/x86/bootstrap.factor" run-file
+<< "resource:core/cpu/x86/bootstrap.factor" parse-file parsed >>
+call
diff --git a/core/cpu/x86/64/bootstrap.factor b/core/cpu/x86/64/bootstrap.factor
old mode 100644
new mode 100755
index 1227369ae8..93bf7cca17
--- a/core/cpu/x86/64/bootstrap.factor
+++ b/core/cpu/x86/64/bootstrap.factor
@@ -14,4 +14,5 @@ IN: bootstrap.x86
 : fixnum>slot@ ;
 : rex-length 1 ;
 
-"resource:core/cpu/x86/bootstrap.factor" run-file
+<< "resource:core/cpu/x86/bootstrap.factor" parse-file parsed >>
+call