X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=msearch.tcl;h=7f859f576b9331b7daeee415a895106487058e23;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=256156b8b223b05ab18df32d5e1913f84bcf57e4;hpb=0b673e359cca2fdb88719de3d20d5488ead9fefb;p=ir-tcl-moved-to-github.git

diff --git a/msearch.tcl b/msearch.tcl
index 256156b..7f859f5 100755
--- a/msearch.tcl
+++ b/msearch.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh
-# $Id: msearch.tcl,v 1.1 2001-03-26 11:39:35 adam Exp $
+# $Id: msearch.tcl,v 1.2 2001-12-03 18:52:06 adam Exp $
 # Simple multi-target search
 
 if {[catch {ir-log-init all irtcl shell.log}]} {
@@ -24,7 +24,7 @@ proc msearch {targets query pending} {
 	set n 0
 	foreach t $targets {
 		if {[catch {z.$n connect [lindex $t 0]}]} {
-			fail-response $targets $n
+			fail-response $targets $n $query $pending
 		}
 		incr n
 	}