--- a/NewLauncher.st	Wed Sep 22 11:11:53 1999 +0200
+++ b/NewLauncher.st	Wed Sep 22 13:49:23 1999 +0200
@@ -202,7 +202,7 @@
 'Opens a simple FTP interface demo.'
 
 #demosFractalPatterns
-'Opens a view displaying fractals patterns.'
+'Opens a view displaying fractal patterns.'
 
 #demosFractalPlants
 'Opens a view displaying fractal plants (iterated function systems).'
@@ -240,6 +240,9 @@
 #demosGraphicEditorsPaintTool
 'Painting demo.'
 
+#demosLSystems
+'Opens a view displaying fractal patterns using Lindenmayer Systems.'
+
 #demosMail
 'Opens a simple mail viewer demo.'
 
@@ -1327,6 +1330,13 @@
                         #argument: 'FractalPatternsDemo'
                       )
                      #(#MenuItem
+                        #label: 'Lindenmayer Patterns Demo'
+                        #translateLabel: true
+                        #value: #openDemo:
+                        #activeHelpKey: #demosLSystems
+                        #argument: 'LSystemsDemo'
+                      )
+                     #(#MenuItem
                         #label: 'More Fractal Patterns Demo'
                         #translateLabel: true
                         #value: #openDemo:
@@ -2717,5 +2727,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.154 1999-09-15 06:43:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.155 1999-09-22 11:49:23 cg Exp $'
 ! !