diff --git a/src/ikarus.boot b/src/ikarus.boot
index a439658..ffe1b55 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/libaltcogen.ss b/src/libaltcogen.ss
index 5b6205c..6d41bce 100644
--- a/src/libaltcogen.ss
+++ b/src/libaltcogen.ss
@@ -2031,6 +2031,8 @@
             [else
              (for-each-var (var-var-conf x) varvec
                (lambda (y) 
+                 (set-var-var-conf! y
+                   (rem-var x (var-var-conf y)))
                  (set-var-frm-conf! y 
                    (add-frm fv (var-frm-conf y)))))
              (set-var-loc! x fv)