--- a/ShortFloat.st	Mon Nov 25 12:14:22 2019 +0100
+++ b/ShortFloat.st	Mon Nov 25 12:14:31 2019 +0100
@@ -271,10 +271,15 @@
      if (__isStringLike(aString) && __isSmallInteger(startIndex)) {
         char *cp = (char *)(__stringVal(aString));
         int idx = __intVal(startIndex) - 1;
-        double atof(const char *);
 
         if ((unsigned)idx < __stringSize(aString)) {
+#ifndef NO_STRTOF
+            float strtof(const char *, char**);
+            float val = strtof(cp+idx, NULL);
+#else
+            double atof(const char *);
             double val = atof(cp + idx);
+#endif
             RETURN (__MKSFLOAT(val));
         }
      }