From 276d34b40d085938bfaf3b0599aa682f5eac6ce9 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Wed, 18 Oct 1995 15:15:20 +0000 Subject: [PATCH] Fixed bug. --- client.tcl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/client.tcl b/client.tcl index bb11305..6f30711 100644 --- a/client.tcl +++ b/client.tcl @@ -4,7 +4,10 @@ # Sebastian Hammer, Adam Dickmeiss # # $Log: client.tcl,v $ -# Revision 1.75 1995-10-17 14:18:05 adam +# Revision 1.76 1995-10-18 15:15:20 adam +# Fixed bug. +# +# Revision 1.75 1995/10/17 14:18:05 adam # Minor changes in presentation formats. # # Revision 1.74 1995/10/17 12:18:57 adam @@ -1717,6 +1720,8 @@ proc protocol-setup-action {target w} { for {set i 0} {$i < $len} {incr i} { lappend b [$w.top.databases.list get $i] } + set wno [lindex $profile($target) 12] + set profile($target) [list [$w.top.description.entry get] \ [$w.top.host.entry get] \ [$w.top.port.entry get] \ -- 1.7.10.4