diff options
| -rw-r--r-- | tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tcltest.tcl b/tcltest.tcl index d338b2a..ce3cbf3 100644 --- a/tcltest.tcl +++ b/tcltest.tcl @@ -151,7 +151,7 @@ proc testConstraint {constraint {bool {}}} { if {[info exists ::tcltest::testConstraints($constraint)]} { return $::tcltest::testConstraints($constraint) } - return -code error "unknown constraint: $c" + return -code error "unknown constraint: $constraint" return 1 } else { set ::tcltest::testConstraints($constraint) $bool |