--- a/ExternalBytes.st	Thu Sep 29 11:40:45 2016 +0200
+++ b/ExternalBytes.st	Fri Sep 30 16:47:25 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -866,10 +868,10 @@
     |idx byte s|
 
     idx := 1.
-    s := WriteStream on:String new.
+    s := WriteStream on:''.
     [(byte := self at:idx) ~~ 0] whileTrue:[
-	s nextPut:(Character value:byte).
-	idx := idx + 1.
+        s nextPut:(Character value:byte).
+        idx := idx + 1.
     ].
     ^ s contents
 !