--- a/NewLauncher.st	Tue Oct 14 18:55:17 2008 +0200
+++ b/NewLauncher.st	Wed Oct 15 12:06:38 2008 +0200
@@ -1102,7 +1102,7 @@
             translateLabel: true
             submenuChannel: menuClassHistory
             labelImage: (ResourceRetriever nil startSystemBrowserIcon 'System Browser')
-            argument: 'SystemBrowser'
+            argument: 'Tools::NewSystemBrowser'
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -3930,7 +3930,7 @@
 menuClassHistory
     "returns a sub menu on the history of the classes"
 
-    ^ self menuClassHistoryFor:SystemBrowser
+    ^ self menuClassHistoryFor:(UserPreferences current systemBrowserClass)
 !
 
 menuClassHistoryFor:whichBrowserClass
@@ -4503,5 +4503,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.375 2008-10-13 09:29:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.376 2008-10-15 10:06:38 cg Exp $'
 ! !