--- a/RegressionTests__CharacterTests.st	Fri Aug 05 18:58:54 2011 +0200
+++ b/RegressionTests__CharacterTests.st	Fri Aug 05 18:59:31 2011 +0200
@@ -13,6 +13,8 @@
 !CharacterTests methodsFor:'tests'!
 
 test01CaseTesting
+    "test lower/uppercase return value for all unicode characters up to 16r1C6FF (i.e. Unicode 3.2)"
+
     |unicodeDataFile|
 
     unicodeDataFile := self class packageDirectory construct:'testData/UnicodeData-4.0.0.txt'.
@@ -67,7 +69,7 @@
      self new test01CaseTesting
     "
 
-    "Modified: / 05-08-2011 / 18:58:47 / cg"
+    "Modified (comment): / 05-08-2011 / 18:59:24 / cg"
 ! !
 
 !CharacterTests class methodsFor:'documentation'!