diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 9fd8c14933..e6e3a7b13b 100644
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -46,7 +46,7 @@ DEFER: define-lisp-macro
 : rest-lambda ( body vars -- quot )
     "&rest" swap [ remove ] [ index ] 2bi
     [ localize-lambda <lambda> lambda-rewrite call ] dip
-    swap '[ , cut '[ @ , seq>list ] call , call ] ;
+    swap '[ , cut '[ @ , seq>list ] call , call call ] ;
 
 : normal-lambda ( body vars -- quot )
     localize-lambda <lambda> lambda-rewrite [ compose call call ] compose 1quotation ;