#OTHER by stefan
authorStefan Vogel <sv@exept.de>
Fri, 30 Sep 2016 16:45:54 +0200
changeset 4099 42f9eaeea092
parent 4098 048912860538
child 4100 fcabc1395987
#OTHER by stefan Use (*WriteStream on:'') instead of (*WriteStream on:String new)
ProfileTree.st
--- a/ProfileTree.st	Fri Sep 30 16:45:41 2016 +0200
+++ b/ProfileTree.st	Fri Sep 30 16:45:54 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -290,7 +292,7 @@
     |s|
 
 "/    self printOn:aStream indent:0
-    s := WriteStream on:String new.
+    s := WriteStream on:''.
     self printOn:s indent:0.
 
     aStream nextPutAll:s contents