--- a/AbstractSourceCodeManager.st	Thu Dec 07 21:57:38 1995 +0100
+++ b/AbstractSourceCodeManager.st	Thu Dec 07 22:53:40 1995 +0100
@@ -292,43 +292,40 @@
 
     tempDir := (Filename newTemporaryIn:nil) makeDirectory.
     [
-	|aStream|
-
-	tempFile := tempDir construct:(classFileName,'.st').
-	aStream := tempFile writeStream.
-	aStream isNil ifTrue:[
-	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
-	    ^ false
-	].
+        |aStream|
 
-	Class fileOutErrorSignal handle:[:ex |
-	    'SOURCEMGR: fileout failed' infoPrintNL.
-	    aStream close.
-	    ^ false
-	] do:[
-	    aClass fileOutOn:aStream withTimeStamp:false.
-	].
-	aStream close.
+        tempFile := tempDir construct:(classFileName,'.st').
+        aStream := tempFile writeStream.
+        aStream isNil ifTrue:[
+            'SOURCEMGR: temporary fileout failed' infoPrintNL.
+            ^ false
+        ].
 
-	(tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
-	    'SOURCEMGR: temporary fileout failed' infoPrintNL.
-	    ^ false
-	].
+        Class fileOutErrorSignal handle:[:ex |
+            'SOURCEMGR: fileout failed' infoPrintNL.
+            aStream close.
+            ^ false
+        ] do:[
+            aClass fileOutOn:aStream withTimeStamp:false.
+        ].
+        aStream close.
 
-	ok := self 
-	    checkinClass:aClass
-	    fileName:classFileName 
-	    directory:packageDir 
-	    module:moduleDir
-	    source:(tempFile name)
-	    logMessage:logMessage.
+        (tempFile := tempDir construct:(classFileName,'.st')) exists ifFalse:[
+            'SOURCEMGR: temporary fileout failed' infoPrintNL.
+            ^ false
+        ].
 
-	ok ifTrue:[
-	    Class addChangeRecordForClassCheckIn:aClass.
-	].
-	^ ok
+        ok := self 
+            checkinClass:aClass
+            fileName:classFileName 
+            directory:packageDir 
+            module:moduleDir
+            source:(tempFile name)
+            logMessage:logMessage.
+
+        ^ ok
     ] valueNowOrOnUnwindDo:[
-	tempDir recursiveRemove
+        tempDir recursiveRemove
     ].
     ^ false
 
@@ -337,7 +334,7 @@
     "
 
     "Created: 6.11.1995 / 18:56:00 / cg"
-    "Modified: 25.11.1995 / 17:05:02 / cg"
+    "Modified: 7.12.1995 / 22:45:02 / cg"
 !
 
 mostRecentSourceStreamForClassNamed:aClassOrClassName
@@ -663,4 +660,4 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.27 1995-12-07 18:56:10 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.28 1995-12-07 21:53:40 cg Exp $'! !