Index: test/bc_common.tcl
==================================================================
--- test/bc_common.tcl
+++ test/bc_common.tcl
@@ -5,15 +5,17 @@
   # Search for binaries to test against. Any executable files that match
   # our naming convention are assumed to be testfixture binaries to test
   # against.
   #
   set binaries [list]
-  set pattern "[file tail [info nameofexec]]?*"
+  set self [file tail [info nameofexec]]
+  set pattern "$self?*"
   if {$::tcl_platform(platform)=="windows"} {
     set pattern [string map {\.exe {}} $pattern]
   }
   foreach file [glob -nocomplain $pattern] {
+    if {$file==$self} continue
     if {[file executable $file] && [file isfile $file]} {lappend binaries $file}
   }
 
   if {[llength $binaries]==0} {
     puts "WARNING: No historical binaries to test against."