diff --git a/tests/all.tcl b/tests/all.tcl
index b7ddd82..0bf6245 100644
--- a/tests/all.tcl
+++ b/tests/all.tcl
@@ -93,6 +93,7 @@ puts [outputChannel] "\n[string repeat ==== 20]"
 ::tcltest::cleanupTests 1
 
 # if calling direct:
+puts "******[subst {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]}] *****"
 if {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]} {
   if {$::TestSummary(TotFailed)} {
     puts stderr "\n[string repeat ** 20]"