From fd02e59ea10103b9eef53d3fe03f8710d0ad90f0 Mon Sep 17 00:00:00 2001
From: Joe Groff <joe@victoria.(none)>
Date: Thu, 13 Aug 2009 12:05:20 -0400
Subject: [PATCH] fix bootstrap

---
 core/slots/slots.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 7e86bd93ee..7b117ac412 100755
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -170,6 +170,7 @@ M: class initial-value* no-initial-value ;
 : initial-value ( class -- object )
     {
         { [ \ f bootstrap-word over class<= ] [ f ] }
+        { [ \ array-capacity bootstrap-word over class<= ] [ 0 ] }
         { [ dup \ integer bootstrap-word class<= ] [ 0 ] }
         { [ float bootstrap-word over class<= ] [ 0.0 ] }
         { [ string bootstrap-word over class<= ] [ "" ] }