--- a/MemoryUsageView.st	Wed Sep 28 07:09:57 2016 +0200
+++ b/MemoryUsageView.st	Mon Oct 03 15:15:56 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -422,7 +424,7 @@
                 "
                  put a describing string into the dictionary
                 "
-                s := WriteStream on:String new.    
+                s := WriteStream on:''.    
                 s nextPutAll:'references in: '.
                 set do:[:name | 
                      name isString ifTrue:[