From 711f27c4eaa79bb6f502c4b5ad70d9f2121fb2a1 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Thu, 11 Jan 1996 13:12:10 +0000 Subject: [PATCH] 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