--- a/Scanner.st	Fri May 29 10:27:27 2020 +0200
+++ b/Scanner.st	Fri Jun 05 11:10:57 2020 +0200
@@ -3474,12 +3474,13 @@
     |secondChar thirdChar fourthChar string p|
 
     secondChar := source peekOrNil.
-    ((firstChar == $-) and:[secondChar notNil]) ifTrue:[
-        secondChar isDigit ifTrue:[
-            self nextNumber.
-            tokenValue := token := tokenValue negated.
-            ^ tokenType
-        ]
+    ((firstChar == $-) 
+      and:[secondChar notNil
+      and:[secondChar isDigit 
+    ]]) ifTrue:[
+        self nextNumber.
+        tokenValue := token := tokenValue negated.
+        ^ tokenType
     ].
     string := firstChar asString.
 
@@ -3553,7 +3554,7 @@
     tokenType := #BinaryOperator.
     ^ tokenType
 
-    "Modified: / 12-02-2017 / 11:02:51 / cg"
+    "Modified: / 05-06-2020 / 11:09:25 / cg"
 !
 
 nextString:delimiter