--- a/Tools__BreakpointBrowser.st	Mon Aug 13 16:19:33 2012 +0200
+++ b/Tools__BreakpointBrowser.st	Mon Aug 13 16:23:56 2012 +0200
@@ -1010,7 +1010,7 @@
 !
 
 messageSelectors
-    ^ (self messagesAndTypes collect:[:each | each first]) asSet.
+    ^ self messagesAndTypes collect:[:each | each first] as:Set.
 !
 
 update:something with:aParameter from:changedObject
@@ -1766,11 +1766,11 @@
 !BreakpointBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.27 2012-01-27 10:52:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012-08-13 14:23:56 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.27 2012-01-27 10:52:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012-08-13 14:23:56 stefan Exp $'
 ! !
 
 BreakpointBrowser initialize!