From 711f27c4eaa79bb6f502c4b5ad70d9f2121fb2a1 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 11 Jan 1996 13:12:10 +0000
Subject: [PATCH 1/1] Bug fix.

---
 client.tcl |    7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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