--- a/RegressionTests__IntegerTest.st	Tue Dec 17 17:17:12 2019 +0100
+++ b/RegressionTests__IntegerTest.st	Tue Dec 17 17:17:33 2019 +0100
@@ -5628,6 +5628,9 @@
 !
 
 testReading2
+    self assert:(Integer readFrom:'1000000001010' radix:2) = 4106.  
+    self assert:(Integer readFrom:'-1000000001010' radix:2) = -4106.  
+
     #(
         0
         -0
@@ -5637,6 +5640,11 @@
         0b0
         16r0
         305419896
+        0x100A
+        -0x100A
+        16r100A
+        16r-100A
+        -16r100A
         16r1FFFFFFF
         16r3FFFFFFF
         16r7FFFFFFF
@@ -5657,8 +5665,9 @@
         |s|
 
         2 to:35 do:[:radix |
+            |got|
             s := each printStringRadix:radix.
-            self assert:(Integer readFrom:s radix:radix) = each
+            self assert:(got := Integer readFrom:s radix:radix) = each
         ]
     ].