--- a/UIPainter.st	Tue Dec 11 17:05:09 2007 +0100
+++ b/UIPainter.st	Tue Dec 11 18:49:39 2007 +0100
@@ -3932,7 +3932,7 @@
                                 stringWithCRs:'Browse implementors of %1 ?'
                                 with:aspect allBold)) 
             ifTrue:[
-                SystemBrowser browseImplementorsOf:aspect
+                UserPreferences current systemBrowserClass browseImplementorsOf:aspect
             ].
             ^ self
         ].
@@ -3942,7 +3942,7 @@
             inClass:cls.
         code readStream fileIn.
     ].
-    SystemBrowser openInClass:cls selector:aspect
+    UserPreferences current systemBrowserClass openInClass:cls selector:aspect
 !
 
 doBrowseAspectMethods