diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 1fdeb1e9..a7bcc801 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -4,7 +4,6 @@ set ::testnum 0
 
 proc test {name code okpattern} {
     incr ::testnum
-    # if {$::testnum < $::first || $::testnum > $::last} return
     puts -nonewline [format "#%03d %-68s " $::testnum $name]
     flush stdout
     if {[catch {set retval [uplevel 1 $code]} error]} {
diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 49239a3a..69d9bbf9 100644
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -15,7 +15,6 @@ set ::traceleaks 0
 set ::valgrind 0
 
 proc execute_tests name {
-    set cur $::testnum
     source "tests/$name.tcl"
 }