--- a/CharacterArray.st	Fri Nov 24 09:12:44 2017 +0100
+++ b/CharacterArray.st	Fri Nov 24 09:13:05 2017 +0100
@@ -347,6 +347,7 @@
     "Created: 3.8.1997 / 18:16:40 / cg"
 ! !
 
+
 !CharacterArray class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -608,6 +609,7 @@
     "
 ! !
 
+
 !CharacterArray class methodsFor:'pattern matching'!
 
 matchEscapeCharacter
@@ -1013,6 +1015,7 @@
     ^ Unicode32String
 ! !
 
+
 !CharacterArray methodsFor:'Compatibility-ANSI'!
 
 addLineDelimiters
@@ -2510,12 +2513,18 @@
      Put another way, it measures the minimum number of substitutions required to change
      one into the other, or the number of errors that transformed one string into the other."
 
-    self assert:(aString size == self size).
-    ^ 1 to:self size count:[:idx | (self at:idx) ~= (aString at:idx)]
+    |mySize|
+
+    mySize := self size.
+    self assert:(aString size == mySize).
+    ^ 1 to:mySize count:[:idx | (self at:idx) ~= (aString at:idx)]
 
     "
      'roses' hammingDistanceTo:'toned'
-    "
+     'roses' hammingDistanceTo:'doses'
+    "
+
+    "Modified (comment): / 24-11-2017 / 08:50:58 / cg"
 !
 
 hash
@@ -4958,6 +4967,8 @@
 ! !
 
 
+
+
 !CharacterArray methodsFor:'matching - glob expressions'!
 
 compoundMatch:aString
@@ -6422,6 +6433,7 @@
     "Modified: 17.4.1997 / 12:50:23 / cg"
 ! !
 
+
 !CharacterArray methodsFor:'special string converting'!
 
 asUnixFilenameString
@@ -7483,6 +7495,7 @@
     "
 ! !
 
+
 !CharacterArray methodsFor:'substring searching'!
 
 findRangeOfString:subString
@@ -8291,6 +8304,7 @@
     ^ aVisitor visitString:self with:aParameter
 ! !
 
+
 !CharacterArray class methodsFor:'documentation'!
 
 version