diff --git a/extra/fry/fry.factor b/extra/fry/fry.factor
index f15a6b24c2..4a97ace2fe 100755
--- a/extra/fry/fry.factor
+++ b/extra/fry/fry.factor
@@ -10,9 +10,10 @@ IN: fry
 : _ ( -- * ) "Only valid inside a fry" throw ;
 
 DEFER: (shallow-fry)
+DEFER: shallow-fry
 
 : ((shallow-fry)) ( accum quot adder -- result )
-    >r [ ] swap (shallow-fry) r>
+    >r shallow-fry r>
     append swap dup empty? [ drop ] [
         [ prepose ] curry append
     ] if ; inline