stest: Print the secnet runes we run

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index a54bd4d7fe4c350e6735527da99a0546cd0f7b9f..8a9d0f1219a7a796d4db479680dedeaed94c8d87 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -116,6 +116,7 @@ proc spawn-secnet {location site} {
     puts $ch [mkconf $location $site]
     close $ch
     set argl [list $builddir/secnet -dvnc $cf]
+    puts "spawn $argl"
     set pid [fork]
     if {!$pid} {
        execl [lindex $argl 0] [lrange $argl 1 end]