--- a/RegressionTests__IntegerTest.st	Wed Mar 23 18:37:59 2016 +0100
+++ b/RegressionTests__IntegerTest.st	Wed Mar 23 18:39:19 2016 +0100
@@ -4011,12 +4011,12 @@
     |nr inString outString|
 
     #(2 3 4 5 8 10 16) do:[:radix |
-        Transcript showCR:('testing radix %1...' bindWith:radix).
+        "/ Transcript showCR:('testing radix %1...' bindWith:radix).
         1 to:1000 do:[:len |
             inString := '1',(String new:len withAll:$0).
             nr := Integer readFrom:inString radix:radix.
             outString := nr printStringRadix:radix.
-            self assert:(outString = inString).
+            self assert:(outString = inString) description:('read/print failed for radix ',radix printString).
         ].    
     ].