From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 11 Jan 1996 13:12:10 +0000 (+0000)
Subject: Bug fix.
X-Git-Tag: IRTCL.1.4~163
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;ds=sidebyside;h=711f27c4eaa79bb6f502c4b5ad70d9f2121fb2a1;hp=e41f24915c163651d35182d9ac65cbe8722a97e9;p=ir-tcl-moved-to-github.git

Bug fix.
---

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"
     }