From c64d02c59aa44ff49e9b8bf4385b06dd3a23e675 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Sun, 10 Sep 2000 19:10:10 +0000
Subject: [PATCH] * symbols.c (scm_gensym): Bugfixed my previous bugfix. 
 (Thanks to Dale P. Smith.)

---
 libguile/symbols.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/libguile/symbols.c b/libguile/symbols.c
index 83136ae3e..f204a0a05 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -857,11 +857,13 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 2, 0,
 {
   SCM new;
   if (SCM_UNBNDP (name))
-    name = gensym_prefix;
+    new = gensym_prefix;
   else
-    SCM_VALIDATE_SYMBOL (1, name);
+    {
+      SCM_VALIDATE_SYMBOL (1, name);
+      new = scm_symbol_to_string (name);
+    }
 
-  new = name;
   if (SCM_UNBNDP (obarray))
     {
       obarray = SCM_BOOL_F;