X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=stest%2Fcommon.tcl;fp=stest%2Fcommon.tcl;h=7ebe9d2babab83b8b00954d46a5a508c896aa019;hb=6d46679bc8fc6c0cef761a36304ba86acb82b0db;hp=a8651d696069483dc732997cc36a02de7c496b38;hpb=bcfb50d898bac710eb1985ff7c0fe72660572fd7;p=secnet.git

diff --git a/stest/common.tcl b/stest/common.tcl
index a8651d6..7ebe9d2 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -188,8 +188,9 @@ proc spawn-secnet {location site} {
     }
     if {[info exists env($divertk)]} {
 	switch -glob $env($divertk) {
-	    i {
-		puts " $argl"
+	    i - {i *} {
+		regsub {^i} $env($divertk) {} divert_prefix
+		puts "$divert_prefix $argl"
 		puts -nonewline "run ^ command, hit return "
 		flush stdout
 		gets stdin