--- a/SourceCodeManagerUtilities.st	Fri Aug 25 00:04:20 2006 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Aug 25 00:05:08 2006 +0200
@@ -14,11 +14,11 @@
 "{ Package: 'stx:libbasic3' }"
 
 Object subclass:#SourceCodeManagerUtilities
-	instanceVariableNames:''
-	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
-		YesToAllNotification'
-	poolDictionaries:''
-	category:'System-SourceCodeManagement'
+        instanceVariableNames:''
+        classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
+                YesToAllNotification'
+        poolDictionaries:''
+        category:'System-SourceCodeManagement'
 !
 
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
@@ -454,10 +454,10 @@
         classes := classes select:[:aClass | ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:aClass].
     ].
 
-    classes notEmpty ifTrue:[
-        AbortAllOperationRequest handle:[:ex |
-            ex return
-        ] do:[
+    AbortAllOperationRequest handle:[:ex |
+        ex return
+    ] do:[
+        classes notEmpty ifTrue:[
             self yesToAllNotification handle:[:ex |
                 yesOrNoToAll := ex parameter.
                 ex proceed
@@ -483,23 +483,23 @@
                 ]
             ].
         ].
-    ].
 
-    (checkinInfoOrString isStable or:[checkinInfoOrString tagIt])
-    ifTrue:[
-        "/mhmh - but tag should be set on all (even unchanged ones)
-        "/ the other onces have already been tagged
-        unchangedClasses := allClasses select:[:eachClass | (classes includes:eachClass) not].
+        (checkinInfoOrString isStable or:[checkinInfoOrString tagIt])
+        ifTrue:[
+            "/mhmh - but tag should be set on all (even unchanged ones)
+            "/ the other onces have already been tagged
+            unchangedClasses := allClasses select:[:eachClass | (classes includes:eachClass) not].
 
-        "mhmh - could still have to tag them"
-        checkinInfoOrString isStable ifTrue:[
-            unchangedClasses do:[:eachClass |
-                self tagClass:eachClass as:#stable.
+            "mhmh - could still have to tag them"
+            checkinInfoOrString isStable ifTrue:[
+                unchangedClasses do:[:eachClass |
+                    self tagClass:eachClass as:#stable.
+                ].
             ].
-        ].
-        checkinInfoOrString tagIt ifTrue:[
-            unchangedClasses do:[:eachClass |
-                self tagClass:eachClass as:(checkinInfoOrString tag withoutSeparators).
+            checkinInfoOrString tagIt ifTrue:[
+                unchangedClasses do:[:eachClass |
+                    self tagClass:eachClass as:(checkinInfoOrString tag withoutSeparators).
+                ].
             ].
         ].
     ].
@@ -2546,5 +2546,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.133 2006-08-24 22:04:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.134 2006-08-24 22:05:08 cg Exp $'
 ! !