1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 26f4b701..1846c348 100644
--- a/eval.c
+++ b/eval.c
@@ -759,7 +759,7 @@ static val lookup_symac_lisp1(val menv, val sym)
 
 static val reparent_env(val child, val parent)
 {
-  child->e.up_env = parent;
+  set(mkloc(child->e.up_env, child), parent);
   return child;
 }