Fix typo in backcompat.test.
FossilOrigin-Name: 6a0cbb272c3f0c1dfdeed381ba92f2f2f16ae824
diff --git a/test/lock_common.tcl b/test/lock_common.tcl
index acb5174..0b7c5f9 100644
--- a/test/lock_common.tcl
+++ b/test/lock_common.tcl
@@ -67,8 +67,8 @@
# 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