diff --git a/include/cyclone/runtime.h b/include/cyclone/runtime.h
index 0ad2a990..69a15b70 100644
--- a/include/cyclone/runtime.h
+++ b/include/cyclone/runtime.h
@@ -171,7 +171,6 @@ object Cyc_bytevector_u8_set(void *data, object bv, object k, object b);
 object Cyc_utf82string(void *data, object cont, object bv, object start, object end);
 object Cyc_string2utf8(void *data, object cont, object str, object start, object end);
 object Cyc_list2vector(void *data, object cont, object l);
-object Cyc_number2string(void *d, object cont, object n);
 object Cyc_number2string2(void *data, object cont, int argc, object n, ...);
 object Cyc_symbol2string(void *d, object cont, object sym) ;
 object Cyc_string2symbol(void *d, object str);
diff --git a/runtime.c b/runtime.c
index 517f9e1e..ebe90aca 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1051,23 +1051,6 @@ object Cyc_length(void *data, object l){
     return obj_int2obj(len);
 }
 
-object Cyc_number2string(void *data, object cont, object n) {
-    char buffer[1024];
-    Cyc_check_num(data, n);
-    if (obj_is_int(n)) {
-        snprintf(buffer, 1024, "%ld", obj_obj2int(n));
-    }else if (type_of(n) == integer_tag) {
-        snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
-    } else if (type_of(n) == double_tag) {
-        snprintf(buffer, 1024, "%f", ((double_type *)n)->value);
-    } else {
-        Cyc_rt_raise2(data, "number->string - Unexpected object", n);
-    }
-    //make_string_noalloc(str, buffer, strlen(buffer));
-    make_string(str, buffer);
-    return_closcall1(data, cont, &str);
-}
-
 char *int_to_binary(char *b, int x)
 {
     b[0] = '\0';