From 53ee5799b5dfab81ee447ae5056d85712c131b40 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 20 Jul 2005 01:27:52 +0000
Subject: [PATCH] fix a typo

---
 library/ui/init-world.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/library/ui/init-world.factor b/library/ui/init-world.factor
index 440db00400..a8e5e1352e 100644
--- a/library/ui/init-world.factor
+++ b/library/ui/init-world.factor
@@ -1,5 +1,8 @@
 ! Copyright (C) 2005 Slava Pestov.
 ! See http://factor.sf.net/license.txt for BSD license.
+IN: help
+DEFER: tutorial
+
 IN: gadgets
 USING: generic help io kernel listener math namespaces
 prettyprint sequences styles threads words ;
@@ -39,7 +42,7 @@ SYMBOL: stack-display
             pane get [
                 [ ui.s ] listener-hook set
                 clear print-banner
-                "Tutorial" [ [ tutorial ] pane get pane-call ] <button> gadget.
+                "Tutorial" [ drop [ tutorial ] pane get pane-call ] <button> gadget.
                 listener
             ] with-stream
         ] in-thread