diff --git a/basis/xml/entities/entities.factor b/basis/xml/entities/entities.factor
index 9edca9359c..d79b4eea79 100644
--- a/basis/xml/entities/entities.factor
+++ b/basis/xml/entities/entities.factor
@@ -39,4 +39,4 @@ CONSTANT: entities
     }
 
 : with-entities ( entities quot -- )
-    [ swap extra-entities set call ] with-scope ; inline
+    [ extra-entities ] dip with-variable ; inline