--- a/ChangeSet.st	Thu Feb 15 19:04:04 2018 +0100
+++ b/ChangeSet.st	Thu Mar 01 10:45:57 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2402,16 +2404,14 @@
      Supported formats are:
        nil ............ chunk changeset file
        #classSource ... class fileout format, assumes that
-			the receiver is a changeset containing
-			single class (possibly with its private
-			classes)
+                        the receiver is a changeset containing
+                        single class (possibly with its private
+                        classes)
     "
 
-    |s|
-
-    s := aFilename asFilename writeStream.
-    self saveToStream:s format:formatSymbolOrNil.
-    s close.
+    aFilename asFilename writingFileDo:[:s |
+        self saveToStream:s format:formatSymbolOrNil.
+    ].
 
     "Created: / 08-02-2011 / 11:20:06 / cg"
     "Modified (comment): / 31-07-2012 / 13:38:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"