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 {