--- a/Tools__ObjectModuleInformation.st	Fri Sep 01 14:27:28 2017 +0200
+++ b/Tools__ObjectModuleInformation.st	Fri Sep 01 14:28:14 2017 +0200
@@ -1263,11 +1263,11 @@
     (moduleInfoOrHandle isKindOf: ObjectMemory::BinaryModuleDescriptor) ifTrue:[
         classes := moduleInfoOrHandle classNames collect:[:nm | Smalltalk classNamed:nm].
 
-        UserPreferences systemBrowserClass
+        SystemBrowser default
             perform:#openOnPackage: with:(moduleInfoOrHandle package)
             ifNotUnderstood:[
                 "/ Q: what about extensions ?
-                UserPreferences systemBrowserClass
+                SystemBrowser default
                     browseClasses:classes
                     label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName).
             ]
@@ -1278,10 +1278,11 @@
                 Dialog information:'The method has been redefined/removed'.
                 ^ self.
             ].
-            UserPreferences systemBrowserClass 
-                openInMethod:method
+            SystemBrowser default openInMethod:method
         ]
     ].
+
+    "Modified: / 01-09-2017 / 14:23:04 / cg"
 !
 
 browseModuleExtensions