From ce21719ccdd383c97102285f1e96ba1d71f5cf71 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 13 Jan 2009 02:25:59 -0600
Subject: [PATCH] Fix <slides> for new-book effect change

---
 extra/slides/slides.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index 0ce946dc49..ab8138d9f1 100755
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -77,7 +77,7 @@ IN: slides
 TUPLE: slides < book ;
 
 : <slides> ( slides -- gadget )
-    [ <page> ] map 0 <model> slides new-book ;
+    0 <model> slides new-book [ <page> add-gadget ] reduce ;
 
 : change-page ( book n -- )
     over control-value + over children>> length rem