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