1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 06df270d..a0c610c9 100644
--- a/eval.c
+++ b/eval.c
@@ -4469,7 +4469,7 @@ static val force(val promise)
     deref(pstate) = promise_inprogress_s;
     ret = funcall(deref(pval));
     deref(pstate) = promise_forced_s;
-    deref(pval) = ret;
+    set(pval, ret);
     return ret;
   } else if (deref(pstate) == promise_inprogress_s) {
     val form = second(cdr(cd));