diff --git a/basis/mime/multipart/multipart.factor b/basis/mime/multipart/multipart.factor
index 3e39f46aa4..4c7b95699e 100644
--- a/basis/mime/multipart/multipart.factor
+++ b/basis/mime/multipart/multipart.factor
@@ -32,7 +32,7 @@ TUPLE: multipart-stream stream n leftover separator ;
         quot unless-empty
     ] [
         stream (>>leftover)
-        [ quot call ] unless-empty
+        quot unless-empty
     ] if-empty f quot call f ;
 
 :: multipart-step-not-found ( stream end-stream? separator quot -- ? )