</head>
<body>
{
-# $Id: query.egw,v 1.32 1996/01/26 15:50:08 adam Exp $
+# $Id: query.egw,v 1.33 1996/02/21 16:57:38 adam Exp $
if {[info commands saveState] == ""} {
source z39util.tcl
z39 callback ok-response
z39 failback fail-response
set thisHost [splitHostSpec $host]
- if {$thisHost != $oldHost} {
+ if {[string compare $thisHost $oldHost]} {
catch {z39 disconnect}
set sessionWait 0