diff --git a/mes/module/mes/boot-6.mes b/mes/module/mes/boot-6.mes
index 7fcf0853..d28cf78a 100644
--- a/mes/module/mes/boot-6.mes
+++ b/mes/module/mes/boot-6.mes
@@ -2199,26 +2199,6 @@
 
 
 
-;;; {with-fluids}
-;;;
-
-;; with-fluids is a convenience wrapper for the builtin procedure
-;; `with-fluids*'.  The syntax is just like `let':
-;;
-;;  (with-fluids ((fluid val)
-;;                ...)
-;;     body)
-
-(defmacro with-fluids (bindings . body)
-  (let ((fluids (map car bindings))
-	(values (map cadr bindings)))
-    (if (and (= (length fluids) 1) (= (length values) 1))
-	`(with-fluid* ,(car fluids) ,(car values) (lambda () ,@body))
-	`(with-fluids* (list ,@fluids) (list ,@values)
-		       (lambda () ,@body)))))
-
-
-
 ;;; {Module System Macros}
 ;;;