--- a/Tools__NewSystemBrowser.st	Fri Nov 18 01:47:02 2016 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Nov 18 04:52:12 2016 +0100
@@ -27281,8 +27281,10 @@
 
     |pools|
 
-    pools := self selectedClasses select:[:cls | cls isSharedPool].
+    pools := self selectedClasses value select:[:cls | cls isSharedPool].
     self browseClassesReferringToAnyPool:pools in:#newBrowser
+
+    "Modified: / 18-11-2016 / 04:47:20 / cg"
 !
 
 defaultSearchArea