--- a/DebugView.st	Tue Aug 15 16:12:55 2000 +0200
+++ b/DebugView.st	Tue Aug 15 16:16:05 2000 +0200
@@ -2299,7 +2299,9 @@
     selectedContext isNil ifTrue:[
         ^ self showError:'** select a context first **'
     ].
-    SystemBrowser browseImplementorsOf:selectedContext selector.
+    selectedContext receiver class browserClass
+    "SystemBrowser"
+         browseImplementorsOf:selectedContext selector.
 !
 
 browseImplementorsOf
@@ -2319,7 +2321,8 @@
                     request:'Selector to browse implementors of:'
                     initialAnswer:initial.
     selector size == 0 ifFalse:[
-        SystemBrowser browseImplementorsOf:selector asSymbol.
+        UserPreferences current systemBrowserClass
+            browseImplementorsOf:selector asSymbol.
     ]
 
     "Modified: / 6.2.2000 / 01:05:14 / cg"
@@ -2331,7 +2334,8 @@
     selectedContext isNil ifTrue:[
         ^ self showError:'** select a context first **'
     ].
-    SystemBrowser browseAllCallsOn:selectedContext selector.
+    UserPreferences current systemBrowserClass
+        browseAllCallsOn:selectedContext selector.
 !
 
 browseSendersOf
@@ -2351,7 +2355,8 @@
                     request:'Selector to browse senders of:'
                     initialAnswer:initial.
     selector size == 0 ifFalse:[
-        SystemBrowser browseAllCallsOn:selector asSymbol.
+        UserPreferences current systemBrowserClass
+            browseAllCallsOn:selector asSymbol.
     ]
 
     "Modified: / 6.2.2000 / 01:05:29 / cg"
@@ -4282,6 +4287,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.262 2000-07-21 12:41:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.263 2000-08-15 14:13:38 cg Exp $'
 ! !
 DebugView initialize!