diff --git a/src/core/strtod.c b/src/core/strtod.c
index b32d3a44..590947d1 100644
--- a/src/core/strtod.c
+++ b/src/core/strtod.c
@@ -291,8 +291,9 @@ int janet_scan_number(
         if (*str == '.') {
             if (seenpoint) goto error;
             seenpoint = 1;
+        } else {
+            seenadigit = 1;
         }
-        seenadigit = 1;
         str++;
     }