From 07ef058fb0dd60cd56fc9c5d6d73d538d1a2430b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 12 Nov 2011 16:43:16 -0800
Subject: [PATCH] Fix bootstrap

---
 basis/classes/struct/struct.factor | 2 +-
 basis/debugger/debugger.factor     | 3 ---
 core/classes/tuple/tuple.factor    | 2 +-
 3 files changed, 2 insertions(+), 5 deletions(-)

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 9553cb58fd..9a3b9f4fa8 100644
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -367,7 +367,7 @@ PRIVATE>
 : <struct-slot-spec> ( name c-type attributes -- slot-spec )
     [ struct-slot-spec new ] 3dip
     [ >>name ]
-    [ [ >>type ] [ struct-slot-class >>class ] bi ]
+    [ [ >>type ] [ struct-slot-class init-slot-class ] bi ]
     [ [ dup empty? ] [ peel-off-struct-attributes ] until drop ] tri* ;
 
 <PRIVATE
diff --git a/basis/debugger/debugger.factor b/basis/debugger/debugger.factor
index 18a23f3c0f..c0109f7aef 100755
--- a/basis/debugger/debugger.factor
+++ b/basis/debugger/debugger.factor
@@ -206,9 +206,6 @@ M: not-a-tuple summary
 M: bad-superclass summary
     drop "Tuple classes can only inherit from non-final tuple classes" ;
 
-M: no-initial-value summary
-    drop "Initial value must be provided for slots specialized to this class" ;
-
 M: bad-initial-value summary
     drop "Incompatible initial value" ;
 
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 7fc311de55..c0455a5962 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -373,4 +373,4 @@ M: tuple-class boa
     [ tuple-layout ]
     bi <tuple-boa> ;
 
-M: tuple-class initial-value* new ;
+M: tuple-class initial-value* new t ;