--- a/ChangesBrowser.st	Thu Apr 04 10:15:45 2013 +0200
+++ b/ChangesBrowser.st	Thu Apr 04 11:37:02 2013 +0200
@@ -3021,23 +3021,23 @@
 setEnforcedPackage
     |pkg listOfKnownPackages|
 
-    listOfKnownPackages := Set new.
-    Smalltalk allClassesDo:[:eachClass |
-				|package|
-
-				package := eachClass package.
-				package size > 0 ifTrue:[
-				    listOfKnownPackages add:package
-				]
-			   ].
-    listOfKnownPackages := listOfKnownPackages asOrderedCollection sort.
+    listOfKnownPackages := Smalltalk allProjectIDs.
+"/    Smalltalk allClassesDo:[:eachClass |
+"/                                |package|
+"/
+"/                                package := eachClass package.
+"/                                package size > 0 ifTrue:[
+"/                                    listOfKnownPackages add:package
+"/                                ]
+"/                           ].
+    listOfKnownPackages := listOfKnownPackages asNewOrderedCollection sort.
 
     pkg := Dialog
-		request:'When applying, changes go into package:'
-		initialAnswer:(enforcedPackage ? Class packageQuerySignal query)
-		list:listOfKnownPackages.
+                request:'When applying, changes go into package:'
+                initialAnswer:(enforcedPackage ? Class packageQuerySignal query)
+                list:listOfKnownPackages.
     pkg size ~~ 0 ifTrue:[
-	enforcedPackage := pkg
+        enforcedPackage := pkg
     ]
 !
 
@@ -6536,10 +6536,10 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.436 2013-04-03 15:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.437 2013-04-04 09:37:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.436 2013-04-03 15:44:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.437 2013-04-04 09:37:02 cg Exp $'
 ! !