From d45fedb7c75a1a086053413a5cbebae970822e9b Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Wed, 12 Nov 2008 18:29:59 -0500
Subject: [PATCH] - unique name of uninterned gensyms is removed, allowing them
 to   get new unique names if needed (instead of having multiple gensyms  
 with the same name some of which are not eq?).

---
 scheme/last-revision      | 2 +-
 src/ikarus-symbol-table.c | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/last-revision b/scheme/last-revision
index 0632d50..3d068d5 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1671
+1672
diff --git a/src/ikarus-symbol-table.c b/src/ikarus-symbol-table.c
index 438a3d2..e683122 100644
--- a/src/ikarus-symbol-table.c
+++ b/src/ikarus-symbol-table.c
@@ -173,6 +173,7 @@ ikrt_unintern_gensym(ikptr sym, ikpcb* pcb){
   while(bckt){
     if (ref(bckt, off_car) == sym) {
       /* found it */
+      ref(sym, off_symbol_record_ustring) = true_object;
       ref(loc, 0) = ref(bckt, off_cdr);
       return true_object;
     } else {