X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;ds=sidebyside;f=client.tcl;h=3269aa71171f1e54f0bf9792a1f46c7d46fa032b;hb=711f27c4eaa79bb6f502c4b5ad70d9f2121fb2a1;hp=119f17135c4d987d4bacd5f1822d184ec73b5e7a;hpb=e41f24915c163651d35182d9ac65cbe8722a97e9;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 119f171..3269aa7 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.83  1995-11-28 17:26:36  adam
+# Revision 1.84  1996-01-11 13:12:10  adam
+# Bug fix.
+#
+# Revision 1.83  1995/11/28  17:26:36  adam
 # Removed Carriage return from ir-tcl.c!
 # Removed misc. debug logs.
 #
@@ -2271,7 +2274,7 @@ proc save-geometry {} {
         return
     } 
     if {$hostid != "Default"} {
-        puts $f "set hostid $hostid"
+        puts $f "set hostid \{$hostid\}"
         set b [z39 databaseNames]
         puts $f "set hostbase $b"
     }