Fix error thrown when converting long string to pairs

>> to pair! "661.1194458007812x510.106201171875" ** Script error: content too long ** Where: to ** Near: to pair! "661.1194458007812x510.106201171875"
zsx · Mar 5, 2015 · a0659c0 · a0659c0
1 parent bb1818e
commit a0659c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/t-pair.c b/src/core/t-pair.c
@@ -332,7 +332,7 @@
 				REBYTE *bp;
 				REBCNT len;
 				// -1234567890x-1234567890
-				bp = Qualify_String(val, 24, &len, FALSE);
+				bp = Qualify_String(val, VAL_LEN(val), &len, FALSE);
 				if (Scan_Pair(bp, len, DS_RETURN)) return R_RET;
 			}
 			if (IS_INTEGER(val)) {