stest: Move puts $argl into divert branches

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index f480948b27644cbc24aae5b1070345dd3ced8199..a85239ca1a643b2834120ffe3ac33e3aca87010d 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -186,18 +186,20 @@ proc spawn-secnet {location site} {
            *PRELOAD* { puts -nonewline " $k=$env($k)" }
        }
     }
-    puts " $argl"
     if {[info exists env($divertk)]} {
        switch -glob $env($divertk) {
            i {
+               puts " $argl"
                puts -nonewline "run ^ command, hit return "
                flush stdout
                gets stdin
                set argl {}
            }
            0 - "" {
+               puts " $argl"
            }
            * {
+               puts " $argl"
                set argl [split $env($divertk)]
            }
        }