--- a/ChangeSetBrowser.st	Mon Mar 05 11:26:38 2007 +0100
+++ b/ChangeSetBrowser.st	Mon Mar 05 16:28:38 2007 +0100
@@ -693,15 +693,17 @@
                     codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser) 
                 ]
             ] do:[
-                |nameSpace pkg|
+                |nameSpace change package|
 
+                change := changeSet at:changeNr.
                 nameSpace := self nameSpaceForApply.
-                pkg := enforcedPackage ? Class packageQuerySignal query.             
-                Class packageQuerySignal answer:pkg
+                package := enforcedPackage ? change package ? Class packageQuerySignal query.             
+
+                Class packageQuerySignal answer:package
                 do:[    
                     Class nameSpaceQuerySignal answer:nameSpace
                     do:[
-                        self applyPossiblyModifiedChange:(changeSet at:changeNr).
+                        self applyPossiblyModifiedChange:change.
                     ]
                 ]
             ]
@@ -719,8 +721,8 @@
     ].
     ^ aborted not
 
-    "Created: / 7.2.1998 / 19:32:35 / cg"
-    "Modified: / 7.2.1998 / 19:35:11 / cg"
+    "Created: / 07-02-1998 / 19:32:35 / cg"
+    "Modified: / 05-03-2007 / 13:19:47 / cg"
 !
 
 applyPossiblyModifiedChange:aChange
@@ -1008,5 +1010,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.47 2007-03-05 10:26:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.48 2007-03-05 15:28:38 cg Exp $'
 ! !