From c5866f47a7794183f53eb764b3dcbd5f09339640 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Wed, 10 Jun 1998 13:22:47 +0000 Subject: [PATCH] Minor changes. --- client.tcl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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} } } -- 1.7.10.4