diff --git a/basis/compiler/tree/dead-code/liveness/liveness.factor b/basis/compiler/tree/dead-code/liveness/liveness.factor
index 8ef2a5e732..08bfde55b2 100644
--- a/basis/compiler/tree/dead-code/liveness/liveness.factor
+++ b/basis/compiler/tree/dead-code/liveness/liveness.factor
@@ -41,7 +41,7 @@ M: node compute-live-values* 2drop ;
     ] if ;
 
 : compute-live-values ( -- )
-    work-list get [ iterate-live-values ] slurp-dequeue ;
+    work-list get [ iterate-live-values ] slurp-deque ;
 
 GENERIC: remove-dead-code* ( node -- node' )
 
diff --git a/basis/compiler/tree/loop/detection/detection.factor b/basis/compiler/tree/loop/detection/detection.factor
index 128db452e5..1f9e42530a 100644
--- a/basis/compiler/tree/loop/detection/detection.factor
+++ b/basis/compiler/tree/loop/detection/detection.factor
@@ -82,7 +82,7 @@ M: node collect-loop-info* 2drop ;
             [ loop-calls get at [ disqualify-loop ] each ]
             bi
         ] [ drop ] if
-    ] slurp-dequeue ;
+    ] slurp-deque ;
 
 : detect-loops ( nodes -- nodes )
     dup collect-loop-info disqualify-loops ;