From 1f39689e761a2618479730bc170bf41d3f1935a8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 25 Jul 2008 19:27:03 -0500
Subject: [PATCH] Fix bootstrap

---
 core/bootstrap/stage1.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/core/bootstrap/stage1.factor b/core/bootstrap/stage1.factor
index 5c55bb15ca..9a0f8f9d1f 100755
--- a/core/bootstrap/stage1.factor
+++ b/core/bootstrap/stage1.factor
@@ -19,8 +19,13 @@ load-help? off
 [
     [
         ! Rehash hashtables, since bootstrap.image creates them
-        ! using the host image's hashing algorithms
-        [ hashtable? ] instances [ rehash ] each
+        ! using the host image's hashing algorithms. We don't
+        ! use each-object here since the catch stack isn't yet
+        ! set up.
+        begin-scan
+        [ hashtable? ] pusher [ (each-object) ] dip
+        end-scan
+        [ rehash ] each
         boot
     ] %