From 14e5866c4bdb141cc633695ee1df062f444c1701 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Tue, 2 Oct 2018 23:31:43 -0300
Subject: [PATCH] Another tweak yo isnumber()

---
 source/qb64.bas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index 48c8a443e..e2cba4f6a 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -18832,7 +18832,7 @@ FUNCTION isnumber (a$)
     FOR i = 1 TO LEN(a$)
         a = ASC(MID$(a$, i, 1))
         IF a = 45 THEN
-            IF i = 1 OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
+            IF (i = 1 AND LEN(a$) > 1) OR (i > 1 AND (d = i - 1 OR e = i - 1)) THEN _CONTINUE
             EXIT FUNCTION
         END IF
         IF a = 46 THEN