close stream before cheching in (in enforce my version)
authorClaus Gittinger <cg@exept.de>
Tue, 08 Apr 2003 16:03:00 +0200
changeset 1224 3ecc52ee88b9
parent 1223 8ff1171ac4cb
child 1225 6e912daf6b1b
close stream before cheching in (in enforce my version)
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Wed Apr 02 11:26:18 2003 +0200
+++ b/CVSSourceCodeManager.st	Tue Apr 08 16:03:00 2003 +0200
@@ -1804,6 +1804,7 @@
                     ifTrue:[
                         s := (tempdir construct:checkoutName) writeStream.
                         cls fileOutOn:s withTimeStamp:false.
+                        s close.
                         answer := true.
                     ]
                 ].
@@ -4291,7 +4292,7 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.268 2003-04-01 11:04:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.269 2003-04-08 14:03:00 cg Exp $'
 ! !
 
 CVSSourceCodeManager initialize!