diff --git a/extra/match/match.factor b/extra/match/match.factor
index 527d7f2465..117fc7ce05 100755
--- a/extra/match/match.factor
+++ b/extra/match/match.factor
@@ -11,7 +11,7 @@ SYMBOL: _
 : define-match-var ( name -- )
     create-in
     dup t "match-var" set-word-prop
-    dup [ get ] curry define-compound ;
+    dup [ get ] curry define ;
 
 : define-match-vars ( seq -- )
     [ define-match-var ] each ;