--- a/RegressionTests__NumberTest.st	Tue Jun 20 14:03:25 2017 +0200
+++ b/RegressionTests__NumberTest.st	Tue Jun 20 14:05:56 2017 +0200
@@ -158,25 +158,34 @@
     self assert: ('-22.2' asNumber = -22.2).
 
     Smalltalk isSmalltalkX ifTrue:[
-	"/ st/x requires this:
+        "/ st/x requires this:
 
-	self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2).
-	self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2).
+        self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2') = 22.2).
+        self assert: ((Number readSmalltalkSyntaxFrom:'10r22.2s5') = 22.2).
+
+        self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2).
+        self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
 
-	self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2') = -22.2).
-	self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
+        self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
 
-	self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
+        self assert: ('-1q' asNumber = -1).
+        self assert: ('-1q' asNumber class == LongFloat).
+
+        self assert: ('-1q1' asNumber = -10).
+        self assert: ('-1q10' asNumber = -10000000000).
+
     ] ifFalse:[
-	"/ squeak allows this:
-	self assert: 2r1e26     = (Number readFrom: '2r1e26').
+        "/ squeak allows this:
+        self assert: 2r1e26     = (Number readFrom: '2r1e26').
+
+        self assert: ('10r22.2' asNumber = 22.2).
+        self assert: ('10r22.2s5' asNumber = 22.2).
 
-	self assert: ('10r22.2' asNumber = 22.2).
-	self assert: ('10r22.2s5' asNumber = 22.2).
+        self assert: ('10r-22.2' asNumber = -22.2).
+        self assert: ('10r-22.2s5' asNumber = -22.2).
+    ].
 
-	self assert: ('10r-22.2' asNumber = -22.2).
-	self assert: ('10r-22.2s5' asNumber = -22.2).
-    ].
+    "Modified: / 20-06-2017 / 14:05:37 / cg"
 ! !
 
 !NumberTest class methodsFor:'documentation'!