--- a/NewLauncher.st	Mon Sep 10 16:13:31 2001 +0200
+++ b/NewLauncher.st	Mon Sep 10 16:14:46 2001 +0200
@@ -3527,7 +3527,7 @@
         (classHistory collect:[:histEntry|
             MenuItem new 
                 label: (histEntry className ); 
-                value: [UserPreferences current systemBrowserClass openInClass:histEntry theClass selector:histEntry selector]; 
+                value: [UserPreferences systemBrowserClass openInClass:histEntry theClass selector:histEntry selector]; 
                 activeHelpKey: #classesSystemBrowserOnClass
         ]
     ).
@@ -4015,5 +4015,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.223 2001-09-10 12:34:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.224 2001-09-10 14:14:46 cg Exp $'
 ! !