diff --git a/gash/compat.scm b/gash/compat.scm
index eb6da7e..40830e3 100644
--- a/gash/compat.scm
+++ b/gash/compat.scm
@@ -131,7 +131,7 @@
             (if (eq? new-value *fluid-accessor*)
                 fluid
                 (let ((old-value (fluid-ref fluid)))
-                  (fluid-set! new-value)
+                  (fluid-set! fluid new-value)
                   old-value))))))
 
   (define-syntax-rule (parameterize ((param value) ...) body ...)