--- a/SourceCodeManagerUtilities.st	Fri Jan 14 11:41:31 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Fri Jan 14 15:08:10 2000 +0100
@@ -32,7 +32,7 @@
 
     aClass isLoaded ifFalse:[
         self information:'cannot checkin unloaded classes (' , aClass name , ').'.
-        ^ self.
+        ^ false.
     ].
 
     aLogMessageOrNil isNil ifTrue:[
@@ -53,8 +53,9 @@
     or:[(info at:#directory ifAbsent:nil) isNil]]]) ifTrue:[
         (self createSourceContainerForClass:aClass) ifFalse:[
 "/            self warn:'did not create a container for ''' , aClass name , ''''.
+            ^ false
         ].
-        ^ self.
+        ^ true.
     ].
 
     self activityNotification:(resources string:'checking in %1' with:aClass name).
@@ -80,19 +81,23 @@
             aborted := false.
             Object abortSignal handle:[:ex |
                 aborted := true.
-                ex return
+                ex return.
+                ^ false.
             ] do:[
                 (mgr checkinClass:aClass logMessage:logMessage) ifFalse:[
                     Transcript showCR:'checkin of ''' , aClass name , ''' failed'.
                     self warn:'checkin of ''' , aClass name asText allBold , ''' failed'.
+                    ^ false.
                 ].
             ].
             aborted ifTrue:[
                 Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
                 self warn:'checkin of ''' , aClass name , ''' aborted'.
+                ^ false.
             ].
         ].
     ].
+    ^ true
 !
 
 checkinClasses:aCollectionOfClasses withLog:aLogMessageOrNil
@@ -538,5 +543,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.3 2000-01-10 16:01:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.4 2000-01-14 14:08:10 cg Exp $'
 ! !