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

@@ -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
 }