From 276d34b40d085938bfaf3b0599aa682f5eac6ce9 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
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