From 5b94e43689a0e576a83c5a81219fc26500365179 Mon Sep 17 00:00:00 2001
From: Douglas Clowes <dcl@ansto.gov.au>
Date: Fri, 24 Jun 2011 13:02:38 +1000
Subject: [PATCH] log catch messages r3225 | dcl | 2011-06-24 13:02:38 +1000
 (Fri, 24 Jun 2011) | 1 line

---
 site_ansto/instrument/config/environment/sct_mvp.tcl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/site_ansto/instrument/config/environment/sct_mvp.tcl b/site_ansto/instrument/config/environment/sct_mvp.tcl
index 0f9b3cea..72349cef 100755
--- a/site_ansto/instrument/config/environment/sct_mvp.tcl
+++ b/site_ansto/instrument/config/environment/sct_mvp.tcl
@@ -139,6 +139,7 @@ debug_log "chkWrite new data for $tc_root [sct] result=\"$data\""
       hsetprop $tc_root/control/setpoint driving 1
     } catch_message ]
     if {$catch_status != 0} {
+      debug_log "error: $catch_message"
       return -code error $catch_message
     }
     return $nextState
@@ -434,9 +435,10 @@ debug_log "Registering node $nodeName for write callback"
     }
     if {$gumtree == 1} {
     }
-  } message ]
+  } catch_message ]
   if {$catch_status != 0} {
-    return -code error "in createNode $message"
+    debug_log "error: $catch_message"
+    return -code error "in createNode $catch_message"
   }
   return OK
 }