diff --git a/basis/documents/documents.factor b/basis/documents/documents.factor
index 466e84677a..01bbae02b3 100644
--- a/basis/documents/documents.factor
+++ b/basis/documents/documents.factor
@@ -99,6 +99,9 @@ TUPLE: document < model locs ;
         [ [ (set-doc-range) ] keep ] change-model
     ] keep update-locs ;
 
+: change-doc-range ( from to document quot -- )
+    '[ doc-range @ ] 3keep set-doc-range ; inline
+
 : remove-doc-range ( from to document -- )
     [ "" ] 3dip set-doc-range ;