--- a/Tools_OrganizerCanvas.st	Tue Apr 02 11:34:03 2013 +0200
+++ b/Tools_OrganizerCanvas.st	Tue Apr 02 11:34:11 2013 +0200
@@ -4643,7 +4643,7 @@
 
         "/ must update the packageFilter
         orgMode == OrganizerCanvas organizerModeProject ifTrue:[
-            self selectedProjects value:(classes collect:[:each | each package]) asSet.
+            self selectedProjects value:(classes collect:[:each | each package] as:Set).
             packageFilter setValue:(self selectedProjects value)
         ] ifFalse:[
             packageFilter value:nil
@@ -4895,7 +4895,7 @@
         packages := self selectedProjects value ? #().
         packages isEmpty ifTrue:[
             selectedClasses notEmptyOrNil ifTrue:[
-                packages := (selectedClasses collect:[:cls | cls package]) asSet asOrderedCollection.
+                packages := (selectedClasses collect:[:cls | cls package] as:Set) asOrderedCollection.
             ].
         ].
 
@@ -4922,7 +4922,7 @@
     allEntry := self class nameListEntryForALL.
 
     selectedProjects := self selectedProjects value.
-    oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string]) asSet.
+    oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string] as:Set).
 
     variableFilter value:nil.
     packageFilter value:nil.
@@ -5044,10 +5044,10 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.52 2013-03-26 16:28:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.53 2013-04-02 09:34:11 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.52 2013-03-26 16:28:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.53 2013-04-02 09:34:11 stefan Exp $'
 ! !