diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index c787573f9..a8eacaeb5 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -286,3 +286,6 @@ no other easy or unambiguous way of detecting such features."
 	  (set-cdr! entry path-name)
 	  (set! *catalog*
 		(acons name path-name *catalog*))))))
+
+(define (make-exchanger obj)
+  (lambda (rep) (let ((old obj)) (set! obj rep) old)))