--- a/RegressionTests__CharacterTests.st	Fri Jan 22 17:21:19 2016 +0100
+++ b/RegressionTests__CharacterTests.st	Wed Jan 27 19:23:09 2016 +0100
@@ -17,7 +17,8 @@
 
     |unicodeDataFile|
 
-    unicodeDataFile := self class packageDirectory construct:'testData/UnicodeData-4.0.0.txt'.
+    unicodeDataFile := self class packageDirectory / 'testData/UnicodeData-4.0.0.txt'.
+    "/ unicodeDataFile := '/Users/cg/work/exept/regression/testData/UnicodeData-4.0.0.txt' asFilename .
 
     CharacterEncoderCodeGenerator isNil ifTrue:[
         Smalltalk fileInClass:'CharacterEncoderCodeGenerator' package:'stx:goodies'
@@ -39,28 +40,28 @@
                                 or:[(category = 'Lm') or:[(category = 'Lo')]].
 
                     ch := Character value:codePoint.
-                    self assert:(ch isUppercase == isUppercase).
-                    self assert:(ch isLowercase == isLowercase).
+                    self assert:(ch isUppercase == isUppercase) description:('isUppercase of ',ch codePoint asString).
+                    self assert:(ch isLowercase == isLowercase) description:('isLowercase of ',ch codePoint asString).
                     "/ self assert:(ch isTitlecase == isTitlecase).
-                    self assert:(ch isNationalLetter == isLetter).
+                    self assert:(ch isNationalLetter == isLetter) description:('isNationalLetter of ',ch codePoint asString).
 
                     ucValue notNil ifTrue:[
                         ucCh := Character value:ucValue.
-                        self assert:(ch asUppercase = ucCh).
+                        self assert:(ch asUppercase = ucCh) description:('asUppercase of ',ch codePoint asString).
                     ] ifFalse:[
-                        self assert:(ch asUppercase = ch).
+                        self assert:(ch asUppercase = ch) description:('asUppercase of ',ch codePoint asString).
                     ].
                     lcValue notNil ifTrue:[
                         lcCh := Character value:lcValue.
-                        self assert:(ch asLowercase = lcCh).
+                        self assert:(ch asLowercase = lcCh) description:('asLowercase of ',ch codePoint asString).
                     ] ifFalse:[
-                        self assert:(ch asLowercase = ch).
+                        self assert:(ch asLowercase = ch) description:('asLowercase of ',ch codePoint asString).
                     ].
                     tcValue notNil ifTrue:[
                         tcCh := Character value:tcValue.
-                        self assert:(ch asTitlecase = tcCh).
+                        self assert:(ch asTitlecase = tcCh) description:('asTitlecase of ',ch codePoint asString).
                     ] ifFalse:[
-                        self assert:(ch asTitlecase = ch).
+                        self assert:(ch asTitlecase = ch) description:('asTitlecase of ',ch codePoint asString).
                     ].
                 ].
         ].