Index: test/backcompat.test
==================================================================
--- test/backcompat.test
+++ test/backcompat.test
@@ -37,11 +37,11 @@
 set pattern "[file tail [info nameofexec]]?*"
 if {$tcl_platform(platform)=="windows"} {
   set pattern [string map {\.exe {}} $pattern]
 }
 foreach file [glob -nocomplain $pattern] {
-  if {[file executable $file] && } {lappend binaries $file}
+  if {[file executable $file]} {lappend binaries $file}
 }
 if {[llength $binaries]==0} {
   puts "WARNING: No historical binaries to test against."
   puts "WARNING: No backwards-compatibility tests have been run."
   finish_test

Index: test/lock_common.tcl
==================================================================
--- test/lock_common.tcl
+++ test/lock_common.tcl
@@ -65,12 +65,12 @@
 # channel name is returned that may be passed as the first argument to proc
 # 'testfixture' to execute a command. The child testfixture process is shut
 # down by closing the channel.
 proc launch_testfixture {{prg ""}} {
   write_main_loop
-  if {$prg eq ""} { set prg [file join . [info nameofexec]] }
-  if {$prg eq ""} { set prg [file join . testfixture] }
+  if {$prg eq ""} { set prg [info nameofexec] }
+  if {$prg eq ""} { set prg testfixture }
   if {[file tail $prg]==$prg} { set prg [file join . $prg] }
   set chan [open "|$prg tf_main.tcl" r+]
   fconfigure $chan -buffering line
   set rc [catch { 
     testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"