--- a/RegressionTests__ScaledDecimalTest.st	Tue Aug 09 21:04:20 2011 +0200
+++ b/RegressionTests__ScaledDecimalTest.st	Tue Aug 09 21:08:20 2011 +0200
@@ -10,13 +10,13 @@
 !
 
 
-!ScaledDecimalTest class methodsFor:'others'!
+!ScaledDecimalTest methodsFor:'tests'!
 
-version_CVS
-    ^ '$Header$'
-! !
+literal1_helper
+    ^ 1.40s2.
 
-!ScaledDecimalTest methodsFor:'tests'!
+    "Created: / 09-08-2011 / 21:06:05 / cg"
+!
 
 testAsNumber
         "Ensure no loss of precision"
@@ -206,7 +206,16 @@
         self assert: ('-130000000013s0' = sd printString)
 !
 
-testLiteral
+testLiteral1
+    "s2 is not a message to be sent to a float"
+    self 
+        shouldnt:[ self literal1_helper ] 
+        raise:MessageNotUnderstood
+
+    "Created: / 09-08-2011 / 21:05:47 / cg"
+!
+
+testLiteral2
         | sd |
 
         sd := 1.40s2.
@@ -218,6 +227,8 @@
         ] ifFalse:[
             self assert: '1.40s2' = sd printString.
         ].
+
+    "Created: / 09-08-2011 / 21:06:11 / cg"
 !
 
 testPrintString
@@ -274,4 +285,8 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !