--- a/NewLauncher.st	Mon Sep 10 14:28:50 2001 +0200
+++ b/NewLauncher.st	Mon Sep 10 14:34:08 2001 +0200
@@ -3523,12 +3523,11 @@
     classHistory := SystemBrowser classHistory.
 
     menu := Menu new receiver: self.
-    menu addItemGroup: (classHistory collect:
-        [:histEntry|
-
+    menu addItemGroup: 
+        (classHistory collect:[:histEntry|
             MenuItem new 
                 label: (histEntry className ); 
-                value: [SystemBrowser openInClass:histEntry theClass selector:histEntry selector]; 
+                value: [UserPreferences current systemBrowserClass openInClass:histEntry theClass selector:histEntry selector]; 
                 activeHelpKey: #classesSystemBrowserOnClass
         ]
     ).
@@ -4016,5 +4015,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.222 2001-09-10 09:08:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.223 2001-09-10 12:34:08 cg Exp $'
 ! !