--- a/ObjectMemory.st	Thu Sep 22 15:15:04 2016 +0200
+++ b/ObjectMemory.st	Thu Sep 22 15:15:40 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -795,7 +797,7 @@
 !
 
 current
-    "the 'current' ObjectMemory - thats myself"
+    "the 'current' ObjectMemory - that's myself"
 
     ^ self
 
@@ -3327,7 +3329,7 @@
 !
 
 maxOldSpace
-    "return the maxOldSpace value. If non-zero, thats the limit for which the
+    "return the maxOldSpace value. If non-zero, that's the limit for which the
      VM will try hard to not allocate more oldSpace memory. (its not a hard limit)
      If zero, it will allocate forever (until the OS wont hand out more).
      The default is zero."
@@ -3344,34 +3346,34 @@
 !
 
 maxOldSpace:amount
-    "set the maxOldSpace value. If non-zero, thats the limit for which the
+    "set the maxOldSpace value. If non-zero, that's the limit for which the
      VM will try hard to not allocate more oldSpace memory. (its not a hard limit)
      If zero, it will allocate forever (until the OS wont hand out more).
      The default is zero.
      WARNING:
-	an oldSpace limit may lead to trashing due to exorbitant GC activity;
-	its usually better to let it allocate more and page in/page out.
-	Usually, the background GC will catch up sooner or later and reclaim
-	the memory without blocking the system"
+        an oldSpace limit may lead to trashing due to exorbitant GC activity;
+        its usually better to let it allocate more and page in/page out.
+        Usually, the background GC will catch up sooner or later and reclaim
+        the memory without blocking the system"
 
     |result|
 %{
     extern unsigned INT __maxOldSpace();
 
     if (__isInteger(amount)) {
-	result = __MKUINT( __maxOldSpace(__unsignedLongIntVal(amount)));
+        result = __MKUINT( __maxOldSpace(__unsignedLongIntVal(amount)));
     }
 %}.
     result notNil ifTrue:[
-	self saveGarbageCollectorSetting:#maxOldSpace: value:amount.
-	^ result.
+        self saveGarbageCollectorSetting:#maxOldSpace: value:amount.
+        ^ result.
     ].
     ^ 0
 
     "
      to change maximum to 1GByte:
 
-	ObjectMemory maxOldSpace:1024*1024*1024
+        ObjectMemory maxOldSpace:1024*1024*1024
     "
 !
 
@@ -3530,7 +3532,7 @@
 !
 
 oldSpaceIncrement
-    "return the oldSpaceIncrement value. Thats the amount by which
+    "return the oldSpaceIncrement value. That's the amount by which
      more memory is allocated in case the oldSpace gets filled up.
      In normal situations, the default value used in the VM is fine
      and there is no need to change it."
@@ -3547,7 +3549,7 @@
 !
 
 oldSpaceIncrement:amount
-    "set the oldSpaceIncrement value. Thats the amount by which
+    "set the oldSpaceIncrement value. That's the amount by which
      more memory is allocated in case the oldSpace gets filled up.
      In normal situations, the default value used in the VM is fine
      and there is no need to change it. This method returns the
@@ -3559,11 +3561,11 @@
     extern unsigned INT __oldSpaceIncrement();
 
     if (__isInteger(amount)) {
-	result = __MKUINT( __oldSpaceIncrement((unsigned INT)__unsignedLongIntVal(amount)) );
+        result = __MKUINT( __oldSpaceIncrement((unsigned INT)__unsignedLongIntVal(amount)) );
     }
 %}.
     result isNil ifTrue:[
-	^ 0.
+        ^ 0.
     ].
     self saveGarbageCollectorSetting:#oldSpaceIncrement: value:amount.
     ^ result.
@@ -5245,7 +5247,7 @@
 !
 
 tenureAge
-    "return the current tenure age - thats the number of times
+    "return the current tenure age - that's the number of times
      an object has to survive scavenges to be moved into oldSpace.
      For statistic/debugging only - this method may vanish"