Index: /trunk/ProjectFortress/src/com/sun/fortress/parser/Literal.rats
===================================================================
--- /trunk/ProjectFortress/src/com/sun/fortress/parser/Literal.rats (revision 2598)
+++ /trunk/ProjectFortress/src/com/sun/fortress/parser/Literal.rats (revision 2737)
@@ -93,7 +93,12 @@
 
 transient FloatLiteralExpr FloatLiteralExpr =
-    <FIRST> a1:DigitString dot a2:DigitString
+    <ErrorProduction> DigitString dot DigitString (dot DigitString)+
+    { yyValue = syntaxError(createSpan(yyStart,yyCount),
+                            "Numerals contain no more than one `.' character.");
+    }
+  / <FIRST> a1:DigitString dot a2:DigitString
     { yyValue = ExprFactory.makeFloatLiteralExpr(createSpan(yyStart,yyCount),
-                                                 a1 + "." + a2); };
+                                                 a1 + "." + a2);
+    };
 
 transient IntLiteralExpr IntLiteralExpr =