--- a/SourceCodeManagerUtilities.st	Mon Apr 16 15:37:39 2007 +0200
+++ b/SourceCodeManagerUtilities.st	Wed May 30 12:13:24 2007 +0200
@@ -822,6 +822,10 @@
         ].
     ].
 
+    containerFile isNil ifTrue:[
+        containerFile := currentClass classFilename.
+    ].
+
     "/
     "/ class in repository - ask for revision
     "/
@@ -950,6 +954,7 @@
 
     changedClassDefinitions := changed select:[:eachChangePair | eachChangePair first isClassDefinitionChange]. 
     changed := changed reject:[:eachChangePair | eachChangePair first isClassDefinitionChange]. 
+    changed := changed reject:[:eachChangePair | eachChangePair first isClassCommentChange]. 
 
     labels := #('Cancel' 'Merge' 'Load'). 
     values := #(nil #merge #load). 
@@ -1129,7 +1134,7 @@
     Smalltalk changed:#projectOrganization.
 
     "Modified: / 07-02-2001 / 18:18:32 / ps"
-    "Modified: / 23-10-2006 / 10:35:07 / cg"
+    "Modified: / 30-05-2007 / 12:06:02 / cg"
 !
 
 checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge using:aSourceCodeManager
@@ -2859,5 +2864,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.158 2007-04-16 13:33:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.159 2007-05-30 10:13:24 cg Exp $'
 ! !