From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 18 Oct 1995 15:15:20 +0000 (+0000)
Subject: Fixed bug.
X-Git-Tag: IRTCL.1.4~197
X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=commitdiff_plain;h=276d34b40d085938bfaf3b0599aa682f5eac6ce9

Fixed bug.
---

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] \