compat: Fix parameter setting.

* gash/compat.scm [mes] (make-parameter): Add missing argument to
'fluid-set!' invocation.

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 ...)