--- a/RegressionTests__NumberTest.st	Tue Dec 17 14:29:17 2019 +0100
+++ b/RegressionTests__NumberTest.st	Tue Dec 17 14:29:35 2019 +0100
@@ -841,6 +841,28 @@
     self assert: ('22.2' asNumber = 22.2).
     self assert: ('-22.2' asNumber = -22.2).
 
+    self assert: ((Number readFrom:'0xaffe') = 45054).
+    self assert: ((Number readFrom:'0b1010') = 10).
+    self assert: ((Number readFrom:'0o177') = 127).
+    self assert: ((Number readFrom:'0Xaffe') = 45054).
+    self assert: ((Number readFrom:'0B1010') = 10).
+    self assert: ((Number readFrom:'0O177') = 127).
+
+    self assert: ((Number readFrom:'-0xaffe') = -45054).
+    self assert: ((Number readFrom:'-0b1010') = -10).
+    self assert: ((Number readFrom:'-0o177') = -127).
+    self assert: ((Number readFrom:'-0Xaffe') = -45054).
+    self assert: ((Number readFrom:'-0B1010') = -10).
+    self assert: ((Number readFrom:'-0O177') = -127).
+
+    self assert: ((Integer readFrom:'0x-affe') = -45054).
+    self assert: ((Number readFrom:'0x-affe') = -45054).
+    self assert: ((Number readFrom:'0b-1010') = -10).
+    self assert: ((Number readFrom:'0o-177') = -127).
+    self assert: ((Number readFrom:'0X-affe') = -45054).
+    self assert: ((Number readFrom:'0B-1010') = -10).
+    self assert: ((Number readFrom:'0O-177') = -127).
+
     Smalltalk isSmalltalkX ifTrue:[
         "/ st/x requires this:
 
@@ -855,6 +877,7 @@
 
         self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2).
         self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
+        self assert: ((Number readSmalltalkSyntaxFrom:'0xaffe') = 45054).
 
         "/ test fails when stc code, byte code works
         (Helper 
@@ -882,6 +905,7 @@
     ].
 
     "Modified: / 20-06-2017 / 14:05:37 / cg"
+    "Modified: / 17-12-2019 / 14:22:34 / Stefan Reise"
 ! !
 
 !NumberTest class methodsFor:'documentation'!