--- a/MemoryUsageView.st	Tue Jul 28 06:49:17 2015 +0100
+++ b/MemoryUsageView.st	Thu Jul 30 09:06:36 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -642,7 +640,7 @@
         ].
         aBlock value:insts
     ] ifFalse:[
-        ObjectMemory allInstancesOf:class do:aBlock.
+        aBlock value:(class allInstances).
     ].
 
     "Created: / 11-05-2011 / 14:36:00 / cg"