--- a/SourceCodeManagerUtilities.st	Wed Nov 22 00:37:39 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Wed Nov 22 12:01:25 2000 +0100
@@ -873,7 +873,7 @@
         onlyInRep do:[:eachChange | "apply this change (method only present in rep-version)"
                                      eachChange apply.
                                      eachChange isMethodChange ifTrue:[
-                                         eachChange changeMethod package:(eachChange changeClass package).
+                                         eachChange changeMethod setPackage:(eachChange changeClass package).
                                          changedClasses add:eachChange changeClass.   
                                      ]
                      ].
@@ -889,7 +889,7 @@
                                      cRep := eachChangeArr at:2.
                                      cRep apply.
                                      cRep isMethodChange ifTrue:[
-                                         cRep changeMethod package:(cRep changeClass package).
+                                         cRep changeMethod setPackage:(cRep changeClass package).
                                          changedClasses add:cRep changeClass.
                                      ]
                    ].
@@ -897,7 +897,7 @@
         onlyInRep do:[:eachChange | "apply this change (method only present in rep-version)"
                                      eachChange apply.
                                      eachChange isMethodChange ifTrue:[
-                                         eachChange changeMethod package:(eachChange changeClass package).
+                                         eachChange changeMethod setPackage:(eachChange changeClass package).
                                          changedClasses add:eachChange changeClass.   
                                      ]
                      ].
@@ -905,6 +905,7 @@
     changedClasses do:[:eachClass |
          eachClass changed:#projectOrganization.
     ].
+    Smalltalk changed:#projectOrganization.
 !
 
 compareClassWithRepository:aClass
@@ -1218,9 +1219,10 @@
 "/                ^ false
 "/            ]
 "/        ].
+        aClass allSelectorsAndMethodsDo:[:sel :mthd | mthd setPackage:requiredPackage].
         aClass package:requiredPackage.
-        aClass allSelectorsAndMethodsDo:[:sel :mthd | mthd package:requiredPackage].
         aClass changed:#projectOrganization.
+        Smalltalk changed:#projectOrganization with:(Array with:aClass).
     ].
 
     info := aClass revisionInfo.
@@ -1580,7 +1582,7 @@
         anyChangeHere := false.
         eachClass allSelectorsAndMethodsDo:[:sel :mthd | 
             mthd package ~= aPackage ifTrue:[
-                mthd package:aPackage.
+                mthd setPackage:aPackage.
                 anyChangeHere := true.
             ].
         ].
@@ -1589,11 +1591,14 @@
         ].
         anyChangeHere ifTrue:[anyChange := true].
     ].
+    anyChange ifTrue:[
+       Smalltalk changed:#projectOrganization
+    ].
     ^ anyChange
 ! !
 
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.39 2000-11-21 19:00:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.40 2000-11-22 11:01:03 cg Exp $'
 ! !