--- a/Tools_SearchDialog.st	Tue Apr 02 11:34:11 2013 +0200
+++ b/Tools_SearchDialog.st	Tue Apr 02 11:34:13 2013 +0200
@@ -887,7 +887,7 @@
     |b packages numPackages|
 
     packages := ((browser selectedMethods value ? #()) 
-                    collect:[:m | m package]) asSet.
+                    collect:[:m | m package] as:Set).
     numPackages := packages size.
     numPackages size == 0 ifTrue:[^ self]. "/ comment this to show, but disabled
 
@@ -1250,12 +1250,12 @@
         ^ self.
     ].
     (where == #listOfSelectedMethodClasses) ifTrue:[ 
-        classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass]) asSet asOrderedCollection.
+        classes := ((browser selectedMethods value ? #()) collect:[:m | m mclass theNonMetaclass] as:Set) asOrderedCollection.
         methods := nil.
         ^ self.
     ].
     (where == #listOfSelectedMethodPackages) ifTrue:[ 
-        classes := (((browser selectedMethods value ? #()) collect:[:m | m package]) asSet
+        classes := (((browser selectedMethods value ? #()) collect:[:m | m package] as:Set)
                         collectAll:[:p | Smalltalk allClassesInPackage:p ]) asOrderedCollection.
         methods := nil.
         ^ self.
@@ -1284,7 +1284,7 @@
         ^ self.
     ].
 
-    self halt:'inumplemented search'.
+    self todo:'unimplemented search'.
 
     "Modified: / 05-10-2011 / 15:48:20 / az"
     "Modified: / 29-02-2012 / 19:47:42 / cg"
@@ -1395,7 +1395,7 @@
 !SearchDialog class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.74 2013-03-16 16:12:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_SearchDialog.st,v 1.75 2013-04-02 09:34:13 stefan Exp $'
 ! !