--- gforth/engine/support.c	2006/01/15 19:50:26	1.12
+++ gforth/engine/support.c	2006/01/16 08:27:59	1.13
@@ -354,6 +354,7 @@ Cell to_float(Char *c_addr, UCell u, Flo
     for (i=1; i<u; i++)
       if (number[i] != ' ')
 	return 0;
+    *rp = 0.0;
     return -1;
   }
   if(number[0]=='-') {