--- a/parsers/smalltalk/PPSmalltalkGrammar.st	Tue Oct 07 09:42:03 2014 +0100
+++ b/parsers/smalltalk/PPSmalltalkGrammar.st	Wed Oct 08 00:08:21 2014 +0100
@@ -367,13 +367,22 @@
 !
 
 number
+    ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+        ^ ($- asParser optional , #digit asParser) and , [ :context | 
+                [ Number readSmalltalkSyntaxFrom: context stream ] 
+                        on: Error
+                        do: [ :err | PPFailure message: err messageText at: context position ] ] 
+                                asParser
+
+    ] ifFalse:[
         ^ ($- asParser optional , #digit asParser) and , [ :context | 
                 [ (NumberParser on: context stream) nextNumber ] 
                         on: Error
                         do: [ :err | PPFailure message: err messageText at: context position ] ] 
                                 asParser
+    ]
 
-    "Modified: / 07-10-2014 / 09:10:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-10-2014 / 21:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 period