From bf0f6476f56370e340b945a65e4db2cd07c402f3 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 27 Mar 2013 18:01:59 -0700
Subject: [PATCH] math.parser: do two digits down until 10.

---
 core/math/parser/parser.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index 7d6d3c2a3e..f6731f4516 100644
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -342,7 +342,7 @@ CONSTANT: ONES B{
 
 : (fixnum>dec) ( num accum -- num' accum )
     { fixnum sbuf } declare
-    [ over 65536 >= ] [ (two-digit) ] while
+    [ over 10 >= ] [ (two-digit) ] while
     [ over zero? ] [ (one-digit) ] until ; inline
 
 : (positive>dec) ( num -- str )