--- a/SourceCodeManagerUtilities.st	Tue Jul 29 20:55:02 2008 +0200
+++ b/SourceCodeManagerUtilities.st	Sat Sep 06 13:12:42 2008 +0200
@@ -1542,7 +1542,7 @@
      classesNotInRepository filesNotInImage classesDeletedInRepository
      classesModifiedInImage classesNotReallyModified classesReallyModified classesModifiedInRepository 
      classesDeletedInImage classesAddedInImage
-     extensionsInImage extensionsInRepository extensionDiffs
+     extensionMethods extensionsInImage extensionsInRepository extensionDiffs
      anyDifference box doRemove doCleanup classDefs changeSets filePerClassDefintion
      classesToCheckIn resources diffSet def autoloadedFilesNotInImage 
      autoloadedClassesInImage autoloadedFilesInImage|
@@ -1580,11 +1580,8 @@
     "/ stupid: as we do not have any revision information for extensions (sigh);
     "/ we must checkout and look at the extension.st contents, to see if it has changed.
 
-    extensionsInImage := OrderedCollection new.
-    Smalltalk allClasses do:[:eachClass |
-        extensionsInImage addAll:(eachClass extensionsFrom:aProject) 
-    ].
-    extensionsInImage := ChangeSet forExistingMethods:extensionsInImage.
+    extensionMethods := Smalltalk allExtensionsForPackage:aProject.
+    extensionsInImage := ChangeSet forExistingMethods:extensionMethods.
 
     [
         |s|
@@ -2937,5 +2934,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.173 2008-07-18 10:19:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.174 2008-09-06 11:12:42 cg Exp $'
 ! !