--- a/RegressionTests__StringTests.st	Thu Mar 31 23:37:39 2016 +0200
+++ b/RegressionTests__StringTests.st	Fri Apr 01 23:10:59 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'exept:regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -342,17 +344,17 @@
     self assert:('aaa/bbb/ccc' subStrings:'/') asArray = #('aaa' 'bbb' 'ccc').
     self assert:(('aaa/bbb/ccc' subStrings:'/') asStringWith:'/') = 'aaa/bbb/ccc'.
 
-    self assert:('/aaa/bbb/ccc' subStrings:'/') asArray = #('' 'aaa' 'bbb' 'ccc').
-    self assert:(('/aaa/bbb/ccc' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc'.
-
-    self assert:('aaa/bbb/ccc/' subStrings:'/') asArray = #('aaa' 'bbb' 'ccc' '' ).
-    self assert:(('aaa/bbb/ccc/' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc/'.
-
-    self assert:('/aaa/bbb/ccc/' subStrings:'/') asArray = #('' 'aaa' 'bbb' 'ccc' '').
-    self assert:(('/aaa/bbb/ccc/' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc'' '.
-
-    self assert:('//aaa/bbb/ccc' subStrings:'/') asArray = #('' '' 'aaa' 'bbb' 'ccc').
-    self assert:(('//aaa/bbb/ccc' subStrings:'/') asStringWith:'/') = '//aaa/bbb/ccc'.
+"/    self assert:('/aaa/bbb/ccc' subStrings:'/') asArray = #('' 'aaa' 'bbb' 'ccc').
+"/    self assert:(('/aaa/bbb/ccc' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc'.
+"/
+"/    self assert:('aaa/bbb/ccc/' subStrings:'/') asArray = #('aaa' 'bbb' 'ccc' '' ).
+"/    self assert:(('aaa/bbb/ccc/' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc/'.
+"/
+"/    self assert:('/aaa/bbb/ccc/' subStrings:'/') asArray = #('' 'aaa' 'bbb' 'ccc' '').
+"/    self assert:(('/aaa/bbb/ccc/' subStrings:'/') asStringWith:'/') = '/aaa/bbb/ccc'' '.
+"/
+"/    self assert:('//aaa/bbb/ccc' subStrings:'/') asArray = #('' '' 'aaa' 'bbb' 'ccc').
+"/    self assert:(('//aaa/bbb/ccc' subStrings:'/') asStringWith:'/') = '//aaa/bbb/ccc'.
 
     "
      self new test51_substrings
@@ -368,18 +370,35 @@
     | tester |
 
     tester := [:s|
-	self assert: s hash == s asUnicode16String hash
-	     description: 'String and Unicode16String hashes differ!!'.
-	self assert: s hash == s asUnicode32String hash
-	     description: 'String and Unicode32String hashes differ!!'.
-	self assert: s asUnicode16String hash == s asUnicode32String hash
-	     description: 'Unicode16String and Unicode32String hashes differ!!'.
+        |sHash u16Hash u32Hash|
+
+        sHash := s hash.
+        u16Hash := s asUnicode16String hash.
+        u32Hash := s asUnicode32String hash.
+
+        self assert: sHash == u16Hash
+             description: 'String and Unicode16String hashes differ!!'.
+        self assert: sHash == u32Hash
+             description: 'String and Unicode32String hashes differ!!'.
+"/ rubbish...
+"/        self assert: u16Hash == u32Hash
+"/             description: 'Unicode16String and Unicode32String hashes differ!!'.
     ].
 
     tester value:'a'.
+    tester value:'12345678901234'.
+    tester value:'1234567890123'.
+    tester value:'123456789012'.
+    tester value:'12345678901'.
+    tester value:'1234567890'.
+    tester value:'123456789'.
     tester value:'12345678'.
     tester value:'1234567'.
     tester value:'123456'.
+    tester value:'12345'.
+    tester value:'1234'.
+    tester value:'123'.
+    tester value:'12'.
     tester value:'boolean'.
 
     String allInstancesDo:[:each| tester value:each].