diff --git a/basis/xmode/marker/marker.factor b/basis/xmode/marker/marker.factor
index 4fdde60976..cff0af2a98 100755
--- a/basis/xmode/marker/marker.factor
+++ b/basis/xmode/marker/marker.factor
@@ -157,7 +157,7 @@ M: seq-rule handle-rule-start
     mark-token
     add-remaining-token
     tuck body-token>> next-token,
-    get-delegate [ push-context ] when* ;
+    delegate>> [ push-context ] when* ;
 
 UNION: abstract-span-rule span-rule eol-span-rule ;
 
@@ -168,7 +168,7 @@ M: abstract-span-rule handle-rule-start
     tuck rule-match-token* next-token,
     ! ... end subst ...
     dup context get (>>in-rule)
-    get-delegate push-context ;
+    delegate>> push-context ;
 
 M: span-rule handle-rule-end
     2drop ;