--- a/DictionaryInspectorView.st	Mon Sep 10 16:14:46 2001 +0200
+++ b/DictionaryInspectorView.st	Mon Sep 10 16:17:04 2001 +0200
@@ -199,7 +199,7 @@
 
     idx := self keyIndexForLine:selectionIndex.
     idx notNil ifTrue:[
-        UserPreferences current systemBrowserClass browseReferendsOf:(keys at:idx) asSymbol.
+        UserPreferences systemBrowserClass browseReferendsOf:(keys at:idx) asSymbol.
         ^ self
     ].
 !
@@ -250,7 +250,7 @@
     idx := self keyIndexForLine:selectionIndex.
     idx notNil ifTrue:[
         self topView withWaitCursorDo:[
-            UserPreferences current systemBrowserClass browseReferendsOf:(keys at:idx) asSymbol
+            UserPreferences systemBrowserClass browseReferendsOf:(keys at:idx) asSymbol
         ].
     ]
 ! !
@@ -411,5 +411,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.47 2000-08-15 14:14:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.48 2001-09-10 14:16:18 cg Exp $'
 ! !