From: Adam Dickmeiss <adam@indexdata.dk>
Date: Thu, 21 Sep 1995 13:42:54 +0000 (+0000)
Subject: Bug fixes.
X-Git-Tag: IRTCL.1.4~207
X-Git-Url: http://git.indexdata.com/?p=ir-tcl-moved-to-github.git;a=commitdiff_plain;h=9ce66eda95f4ef797782d491011687e338b055d8

Bug fixes.
---

diff --git a/client.tcl b/client.tcl
index 2ab73be..45007fc 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.68  1995-09-21 13:11:49  adam
+# Revision 1.69  1995-09-21 13:42:54  adam
+# Bug fixes.
+#
+# Revision 1.68  1995/09/21  13:11:49  adam
 # Support of dynamic loading.
 # Test script uses load command if necessary.
 #
@@ -3119,8 +3122,11 @@ pack .bot.a.status .bot.a.set .bot.a.message \
 
 if {[catch {ir z39}]} {
     set e [info sharedlibextension]
-    puts -nonewline "Loading irtcl..."
-    load irtcl$e
+    if {$e == {}} {
+        set e .dll
+    }
+    puts -nonewline "Loading irtcl$e ..."
+    load irtcl$e irtcl
     ir z39
     puts "ok"
 }