--- a/CVSSourceCodeManager.st	Sat Feb 02 01:23:18 2013 +0100
+++ b/CVSSourceCodeManager.st	Wed Feb 06 16:47:37 2013 +0100
@@ -695,7 +695,7 @@
         path := Filename components:filename directory name.
         path := path asStringWith:$/.
         s nextPutLine:(root, '/', path).
-        s close.
+        s syncData; close.
 
         "/ make new Entries file.
         s := entries writeStream.
@@ -722,7 +722,7 @@
         s := newStream.
     ].
     s nextPutLine:firstPart, rev, '/', date, '/', special, '/'.
-    s close.
+    s syncData; close.
 
     "
         self createEntryFor:'foo/xxx/yyy' in:'foo/xxx' revision:'1.22' date:'dummy' special:''
@@ -5183,11 +5183,12 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.445 2012-12-12 22:57:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.446 2013-02-06 15:47:37 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.445 2012-12-12 22:57:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.446 2013-02-06 15:47:37 stefan Exp $'
 ! !
 
+
 CVSSourceCodeManager initialize!