X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=client.tcl;h=9112e98801d2c4eb18706965cee22361c32e101e;hb=c5866f47a7794183f53eb764b3dcbd5f09339640;hp=7e2ef8398f7a645cecc39fcb9066ea5dc0dfa034;hpb=510fc2e05a3233005879413ae401865d91efe73e;p=ir-tcl-moved-to-github.git

diff --git a/client.tcl b/client.tcl
index 7e2ef83..9112e98 100644
--- a/client.tcl
+++ b/client.tcl
@@ -4,7 +4,10 @@
 # Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: client.tcl,v $
-# Revision 1.105  1998-06-10 13:00:45  adam
+# Revision 1.106  1998-06-10 13:22:47  adam
+# Minor changes.
+#
+# Revision 1.105  1998/06/10 13:00:45  adam
 # Added ir-version command.
 #
 # Revision 1.104  1998/02/12 13:32:41  adam
@@ -4157,9 +4160,9 @@ set logLevel all
 if {[catch {ir-version}]} {
     set e [info sharedlibextension]
     .init.msg insert end "Loading irtcl$e.\n"
-    load ${libdir}/irtcl$e irtcl
+    catch {load ${libdir}/irtcl$e irtcl}
     if {[catch {ir-version}]} {
-	load irtcl$e irtcl
+	catch {load irtcl$e irtcl}
     }
 }