--- a/SourceCodeManagerUtilities.st	Fri Jul 11 11:44:46 2008 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Jul 18 11:20:37 2008 +0200
@@ -1112,9 +1112,10 @@
                 eachChangedClass := eachChangedClass theNonMetaclass.
 
                 "remove changed methods now, but keep the changes (to be applied later)"
-                changed do:[:eachChange|
-                    |eachClass|
-
+                changed do:[:eachChangeArr|
+                    |eachChange eachClass|
+
+                    eachChange := eachChangeArr first.
                     eachChange isMethodChange ifTrue:[
                         eachClass := eachChange changeClass.
                         eachClass theNonMetaclass == eachChangedClass ifTrue:[
@@ -2935,5 +2936,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.171 2008-07-07 18:24:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.172 2008-07-18 09:20:37 stefan Exp $'
 ! !