diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 7dab80c22d..2029c0cf25 100644
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -99,7 +99,7 @@ DEFER: ;FUNCTOR delimiter
 
 : (FUNCTOR:) ( -- word def )
     CREATE
-    parse-locals
+    parse-locals dup push-locals
     parse-functor-body swap pop-locals <lambda>
     rewrite-closures first ;