diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 05c632c..1c5cafb 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -1582,6 +1582,7 @@ VM_DEFINE_INSTRUCTION (90, wind_fluids, "wind-fluids", 1, -1, 0)
   wf = scm_i_make_with_fluids (n, sp + 1 - 2*n, sp + 1 - n);
   scm_i_swap_with_fluids (wf, dynstate);
   scm_i_set_dynwinds (scm_cons (wf, scm_i_dynwinds ()));
+  sp -= 2*n;
   NEXT;
 }