--- a/Launcher.st	Tue Jul 28 12:01:06 1998 +0200
+++ b/Launcher.st	Tue Jul 28 15:18:35 1998 +0200
@@ -1999,8 +1999,8 @@
     m subMenuAt:#simpleAnimations 
       put:(PopUpMenu
                 itemList:#(
-                           ('Animation'     #openDemo nil Animation )
-                           ('Globe demo'    #openDemo nil GlobeDemo )
+                           ('Animation'     #openDemo: nil Animation )
+                           ('Globe demo'    #openDemo: nil GlobeDemo )
                          )
                 resources:resources).
 
@@ -2052,7 +2052,7 @@
                            )
                 resources:resources).
 
-    "Modified: / 27.7.1998 / 18:23:38 / cg"
+    "Modified: / 28.7.1998 / 15:17:12 / cg"
 !
 
 setupFileMenu
@@ -5456,5 +5456,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.358 1998-07-27 16:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.359 1998-07-28 13:18:35 cg Exp $'
 ! !