diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index b6d07a0f6c..292a0b5bc8 100644
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -100,7 +100,7 @@ PRIVATE>
 SYMBOL: return-continuation
 
 : with-return ( quot -- )
-    [ [ return-continuation set ] prepose callcc0 ] with-scope ; inline
+    [ return-continuation ] dip [ with-variable ] 2curry callcc0 ; inline
 
 : return ( -- * )
     return-continuation get continue ;