--- a/Launcher.st	Sat Oct 17 15:27:53 1998 +0200
+++ b/Launcher.st	Sat Oct 17 15:29:06 1998 +0200
@@ -556,14 +556,10 @@
     "open a changebrowser"
 
     self withWaitCursorDo:[
-        UserPreferences current useNewChangesBrowser ifTrue:[
-            NewChangesBrowser open
-        ] ifFalse:[
-            ChangesBrowser open
-        ]
+        UserPreferences current changesBrowserClass open
     ]
 
-    "Modified: / 13.10.1998 / 15:55:35 / cg"
+    "Modified: / 17.10.1998 / 14:38:18 / cg"
 !
 
 startClassBrowser
@@ -5945,5 +5941,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.383 1998-10-14 12:03:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.384 1998-10-17 13:29:06 cg Exp $'
 ! !

--- a/NewLauncher.st	Sat Oct 17 15:27:53 1998 +0200
+++ b/NewLauncher.st	Sat Oct 17 15:29:06 1998 +0200
@@ -3384,13 +3384,9 @@
 startChangesBrowser
     "opens the new or old changeBrowser (dep. on userPrefs)"
 
-    UserPreferences current useNewChangesBrowser ifTrue:[
-        NewChangesBrowser open
-    ] ifFalse:[
-        ChangesBrowser open
-    ]
-
-    "Created: / 13.10.1998 / 15:56:46 / cg"
+    UserPreferences current changesBrowserClass open
+
+    "Modified: / 17.10.1998 / 14:38:38 / cg"
 !
 
 startNewLauncher
@@ -3622,5 +3618,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.116 1998-10-16 13:45:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.117 1998-10-17 13:28:25 cg Exp $'
 ! !