{
# $Id: search.egw,v 1.9 1995/11/07 14:56:59 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
}
global sessionWait
global nextSetNo
global setNo
global hist
set oldHost $hist($setNo,host)
if {[wform menu1] == ""} {
set setNo [lindex $sessionParms 0]
} else {
if {![info exists hist($nextSetNo,host)]} {
set hist($nextSetNo,host) $oldHost
}
set setNo $nextSetNo
html "using host " $hist($setNo,host) "