1 files changed, 1 insertions, 1 deletions
diff --git a/lib.c b/lib.c
index 745714f9..2771c18d 100644
--- a/lib.c
+++ b/lib.c
@@ -4092,7 +4092,7 @@ val gensym(val prefix)
 {
   prefix = default_arg(prefix, lit("g"));
   loc gs_loc = lookup_var_l(nil, gensym_counter_s);
-  val name = format(nil, lit("~a~,04a"), prefix,
+  val name = format(nil, lit("~a~,04d"), prefix,
                     set(gs_loc, plus(deref(gs_loc), one)), nao);
   return make_sym(name);
 }