--- a/modules/json.tp	Sun Aug 11 04:02:51 2013 -0700
+++ b/modules/json.tp	Sun Aug 11 04:03:08 2013 -0700
@@ -10,6 +10,7 @@
 	neg <- "-" byte: 0
 	space <- " " byte: 0
 	comma <- "," byte: 0
+	period <- "." byte: 0
 	tab <- "	" byte: 0
 	nl <- "\n" byte: 0
 	cr <- "\r" byte: 0
@@ -22,16 +23,23 @@
 		l <- str length
 		minus <- false
 		aft <- -1
+		ignore <- false
 		while: { at < l } do: {
 			b <- str byte: at
 			if: b = neg {
 				minus <- true
 			} else: {
-				if: b >= zero && b <= nine {
-					num <- num * 10 + (str byte: at) - zero
+				if: b = period {
+					ignore <- true
 				} else: {
-					aft <- at
-					at <- l
+					if: b >= zero && b <= nine {
+						if: (not: ignore) {
+							num <- num * 10 + (str byte: at) - zero
+						}
+					} else: {
+						aft <- at
+						at <- l
+					}
 				}
 			}
 			at <- at + 1