--- a/SourceCodeManagerUtilities.st	Thu Nov 08 09:58:33 2001 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Nov 08 10:00:02 2001 +0100
@@ -995,7 +995,14 @@
     sourceToLoad = currentSource ifTrue:[
         "/ make all methods belong to the classes project
         self setPackageOfAllMethodsIn:aClass to:aClass package.
-        self information:(resources string:'Versions are identical: %1' with:aClass name).
+"/        (ChangeSet current includesChangeForClass:aClass) ifTrue:[
+"/            (self confirm:(resources string:'Versions are identical: %1.\\Remove entries from changeSet ?' with:aClass name) withCRs)
+"/            ifTrue:[
+"/                self halt
+"/            ]
+"/        ] ifFalse:[
+            self information:(resources string:'Versions are identical: %1' with:aClass name).
+"/        ].
         ^ self.
     ].
 
@@ -2025,5 +2032,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.70 2001-11-05 16:58:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.71 2001-11-08 09:00:02 cg Exp $'
 ! !