--- a/RegressionTests__ScaledDecimalTest.st	Tue Aug 09 10:53:00 2011 +0200
+++ b/RegressionTests__ScaledDecimalTest.st	Tue Aug 09 20:58:06 2011 +0200
@@ -10,6 +10,12 @@
 !
 
 
+!ScaledDecimalTest class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header$'
+! !
+
 !ScaledDecimalTest methodsFor:'tests'!
 
 testAsNumber
@@ -74,11 +80,16 @@
 !
 
 testAsNumberWithRadix
-
-        | sd |
+        | sd oldSetting |
 
         Smalltalk isSmalltalkX ifTrue:[
-            sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+            oldSetting := ParserFlags allowFixedPointLiterals.
+            ParserFlags allowFixedPointLiterals:true.
+            [
+                sd := Number readSmalltalkSyntaxFrom:'10r-22.2s5'.
+            ] ensure:[
+                ParserFlags allowFixedPointLiterals:oldSetting.
+            ]
         ] ifFalse:[
             sd := '10r-22.2s5' asNumber.
         ].
@@ -92,6 +103,8 @@
         ] ifFalse:[
             self assert: '-22.20000s5' = sd printString.
         ]
+
+    "Modified: / 09-08-2011 / 20:57:54 / cg"
 !
 
 testAsNumberWithSuperfluousDecimalPoint