diff -r 3078dab499ca -r 050566d67400 SourceCodeManagerUtilities.st
--- a/SourceCodeManagerUtilities.st	Tue Oct 27 10:44:32 2009 +0100
+++ b/SourceCodeManagerUtilities.st	Sat Oct 31 13:31:04 2009 +0100
@@ -555,7 +555,7 @@
 
     allClasses := classes.    
     checkinInfoOrString quickCheckIn ifTrue:[
-        classes := classes select:[:aClass | ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass].
+        classes := classes select:[:aClass | aClass hasUnsavedChanges].
     ].
 
     AbortAllOperationRequest handle:[:ex |
@@ -941,7 +941,7 @@
         ^ self.
     ].
 
-    inChangeSet := ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass.
+    inChangeSet := aClass hasUnsavedChanges.
 
     self activityNotification:'generating current source...'.
 
@@ -1232,7 +1232,7 @@
     "/    ].
 
         answer == #load ifTrue:[
-            inChangeSet := ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass.
+            inChangeSet := aClass hasUnsavedChanges.
             inChangeSet ifTrue:[
                 rev = newestRev ifTrue:[
                     (wasInChangeSetBefore not
@@ -1565,7 +1565,7 @@
         ].
 
         versionsAreTheSame ifTrue:[
-            (ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:classToCompare) ifTrue:[
+            (classToCompare hasUnsavedChanges) ifTrue:[
                 (self confirm:(resources 
                                 stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
                                 with:classToCompare name allBold)) ifTrue:[
@@ -3170,9 +3170,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.197 2009-10-31 12:31:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.196 2009-10-26 16:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.197 2009-10-31 12:31:04 cg Exp $'
 ! !