diff --git a/lang/basic/lib/mki.c b/lang/basic/lib/mki.c
index d1cb7bcdd..d50443df5 100644
--- a/lang/basic/lib/mki.c
+++ b/lang/basic/lib/mki.c
@@ -19,7 +19,7 @@ double d;
 	String *s;
 
 	s= _newstr(buffer);
-	* ( (double *)s->strval ) = i ;
+	* ( (double *)s->strval ) = d ;
 	return(s);
 }
 long _cvi(s)