Don't use variables as parameters in negation

(since negations don't actually get those variables bound)

Fixes negation with variables

1 files changed, 1 insertions, 1 deletions

diff --git a/main.tcl b/main.tcl
index 87411250..3b6faea7 100644
--- a/main.tcl
+++ b/main.tcl
@@ -109,12 +109,12 @@ proc When {args} {
             lset pattern $i [uplevel [list subst $word]]
         }
     }
-    lappend argNames {*}$varNamesWillBeBound
 
     if {$negate} {
         set negateBody [list if {[llength $__matches] == 0} $body]
         uplevel [list Say when the collected matches for $pattern are /__matches/ [list [list {*}$argNames __matches] $negateBody] with environment $argValues]
     } else {
+        lappend argNames {*}$varNamesWillBeBound
         uplevel [list Say when {*}$pattern [list $argNames $body] with environment $argValues]
     }
 }