--- a/NewLauncher.st	Tue Sep 22 21:44:15 2009 +0200
+++ b/NewLauncher.st	Tue Sep 22 21:44:43 2009 +0200
@@ -509,6 +509,9 @@
 #helpTutorial
 'Show the ST/X Tutorial.'
 
+#helpSmalltalkTutorial
+'Show the Smalltalk Language Tutorial.'
+
 #helpWhatsNew
 'Show the latest news about the ST/X documentation.'
 
@@ -1949,11 +1952,17 @@
           )
          (MenuItem
             activeHelpKey: helpTutorial
-            label: 'Smalltalk Tutorial for Beginners'
+            label: 'Smalltalk/X Tutorial'
             itemValue: startTutorial
             translateLabel: true
           )
          (MenuItem
+            activeHelpKey: helpSmalltalkTutorial
+            label: 'Smalltalk Language Tutorial'
+            itemValue: startSmalltalkTutorial
+            translateLabel: true
+          )
+         (MenuItem
             activeHelpKey: helpProgrammersGuide
             label: 'Programmer''s Guide'
             itemValue: startProgrammersGuide
@@ -2107,7 +2116,7 @@
             nameKey: tools
             translateLabel: true
             submenuChannel: toolsMenu
-            keepLinkedMenu: true
+            "/ keepLinkedMenu: true
           )
          (MenuItem
             label: 'System'
@@ -2140,7 +2149,7 @@
             translateLabel: true
             startGroup: conditionalRight
             submenuChannel: helpMenu
-            keepLinkedMenu: true
+            "/ keepLinkedMenu: true
           )
          )
         nil
@@ -4628,5 +4637,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.387 2009-09-18 16:18:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.388 2009-09-22 19:44:43 cg Exp $'
 ! !