--- a/BrowserView.st	Fri Sep 17 18:58:20 1999 +0200
+++ b/BrowserView.st	Sat Sep 18 13:47:29 1999 +0200
@@ -4114,32 +4114,38 @@
     pri := Processor activePriority.
     Processor activeProcess withPriority:pri-1 to:pri
     do:[
-        |revision aborted|
-
+        |revision aborted freshCreated|
+
+        freshCreated := false.
         revision := aClass revision.
         revision isNil ifTrue:[ 
             "/ mhmh - check if it has a container.
             (mgr checkForExistingContainerForClass:aClass) ifFalse:[
                 (self classCreateSourceContainerFor:aClass) ifFalse:[
                     self warn:'did not create a container for ''' , aClass name , ''''.
-                ]
+                ] ifTrue:[
+                    freshCreated := true.
+                ].
             ]
         ].
 
-        aborted := false.
-        Object abortSignal handle:[:ex |
-            aborted := true.
-            ex return
-        ] do:[
-            (mgr checkinClass:aClass logMessage:logMessage) ifFalse:[
-                Transcript showCR:'checkin of ''' , aClass name , ''' failed'.
-                self warn:'checkin of ''' , aClass name , ''' failed'.
+        freshCreated ifFalse:[
+            aborted := false.
+            Object abortSignal handle:[:ex |
+                aborted := true.
+                ex return
+            ] do:[
+                (mgr checkinClass:aClass logMessage:logMessage) ifFalse:[
+                    Transcript showCR:'checkin of ''' , aClass name , ''' failed'.
+                    self warn:'checkin of ''' , aClass name , ''' failed'.
+                ].
             ].
-        ].
-        aborted ifTrue:[
-            Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
-            self warn:'checkin of ''' , aClass name , ''' aborted'.
-        ].
+            aborted ifTrue:[
+                Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
+                self warn:'checkin of ''' , aClass name , ''' aborted'.
+            ].
+        ].
+
         aspect == #revisionInfo ifTrue:[
             self classListUpdate
         ].
@@ -13900,6 +13906,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.555 1999-09-17 16:58:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.556 1999-09-18 11:47:29 cg Exp $'
 ! !
 BrowserView initialize!