diff --git a/lang/cem/libcc/gen/atof.c b/lang/cem/libcc/gen/atof.c
index 8c2c3029..256db5e8 100644
--- a/lang/cem/libcc/gen/atof.c
+++ b/lang/cem/libcc/gen/atof.c
@@ -68,7 +68,7 @@ atof(p)
 		while (exp) {
 			if (exp % 2) correction *= exp5;
 			exp /= 2;
-			exp5 *= exp5;
+			if (exp != 0) exp5 *= exp5;
 		}
 		if (expsign) fl = fl / correction;
 		else	fl = fl * correction;