--- a/InspectorView.st	Tue Apr 02 11:33:11 2013 +0200
+++ b/InspectorView.st	Tue Apr 02 11:33:13 2013 +0200
@@ -2462,7 +2462,7 @@
         which == #all ifTrue:[
             messages := cls allSelectors.
         ] ifFalse:[
-            messages := cls allSelectors copy asSet removeAll:cls selectors; yourself.
+            messages := cls allSelectors asNewSet removeAll:cls selectors; yourself.
         ].
     ].
 
@@ -3505,10 +3505,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.302 2013-03-31 09:52:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.303 2013-04-02 09:33:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.302 2013-03-31 09:52:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.303 2013-04-02 09:33:13 stefan Exp $'
 ! !