--- a/TextView.st	Sun Jul 07 20:07:49 2013 +0200
+++ b/TextView.st	Mon Jul 08 15:39:42 2013 +0200
@@ -2356,7 +2356,7 @@
                     aStream := filename newReadWriteStream.
                 ].
                 self fileOutContentsOn:aStream compressTabs:compressTabs encoding:externalEncoding.
-                aStream close.
+                aStream syncData; close.
                 contentsWasSaved := true.
                 defaultFileNameForFileDialog := filename.
             ] on:FileStream openErrorSignal do:[:ex|
@@ -4843,11 +4843,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.357 2013-06-27 19:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.358 2013-07-08 13:39:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.357 2013-06-27 19:23:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.358 2013-07-08 13:39:42 stefan Exp $'
 ! !