From 325dbf3eefb6e29faf15d0878a5f0f504d85ab6c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 20 Oct 2008 21:07:55 -0500
Subject: [PATCH] Fix regression

---
 core/classes/tuple/tuple.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 8cde049524..ecff54d9bc 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -138,8 +138,12 @@ ERROR: bad-superclass class ;
 : define-tuple-prototype ( class -- )
     dup tuple-prototype "prototype" set-word-prop ;
 
+: prepare-slots ( slots superclass -- slots' )
+    [ make-slots ] [ class-size 2 + ] bi* finalize-slots ;
+
 : define-tuple-slots ( class -- )
-    dup "slots" word-prop define-accessors ;
+    dup "slots" word-prop over superclass prepare-slots
+    define-accessors ;
 
 : make-tuple-layout ( class -- layout )
     [ ]
@@ -242,7 +246,7 @@ PRIVATE>
 
 : define-tuple-class ( class superclass slots -- )
     over check-superclass
-    make-slots over class-size 2 + finalize-slots
+    over prepare-slots
     (define-tuple-class) ;
 
 M: word (define-tuple-class)