diff --git a/basis/deques/deques-docs.factor b/basis/deques/deques-docs.factor
index 3a3e9d11e7..3f9e9eca6e 100644
--- a/basis/deques/deques-docs.factor
+++ b/basis/deques/deques-docs.factor
@@ -124,7 +124,7 @@ HELP: node-value
 
 HELP: slurp-deque
 { $values
-     { "deque" deque } { "quot" quotation } }
+     { "deque" deque } { "quot" { $quotation ( obj -- ) } } }
 { $description "Pops off the back element of the deque and calls the quotation in a loop until the deque is empty." }
 { $examples
   { $example
diff --git a/basis/deques/deques.factor b/basis/deques/deques.factor
index 12ec8b2338..f5be97f894 100644
--- a/basis/deques/deques.factor
+++ b/basis/deques/deques.factor
@@ -47,9 +47,9 @@ ERROR: empty-deque ;
 : pop-back ( deque -- obj )
     [ peek-back ] [ pop-back* ] bi ; inline
 
-: slurp-deque ( deque quot -- )
-    [ drop '[ _ deque-empty? not ] ]
+: slurp-deque ( deque quot: ( obj -- ) -- )
+    [ drop '[ _ deque-empty? ] ]
     [ '[ _ pop-back @ ] ]
-    2bi while ; inline
+    2bi until ; inline
 
 MIXIN: deque