1 files changed, 3 insertions, 2 deletions
diff --git a/match.c b/match.c
index e137d8e3..c77a4e7d 100644
--- a/match.c
+++ b/match.c
@@ -4687,9 +4687,10 @@ val extract(val spec, val files, val predefined_bindings)
 
 void match_reg_var(val sym)
 {
-  if (bindable(sym) && !uw_tentative_def_exists(sym)) {
+  if (bindable(sym)) {
     val tag = cons(var_s, sym);
-    uw_register_tentative_def(tag);
+    if (!uw_tentative_def_exists(tag))
+      uw_register_tentative_def(tag);
   }
 }