catch tcl tk

if [catch {load $library dcs_c_library} err] {
  puts "-----------------------------------------------------------------------------"
  puts $err
          }