From f0202fad519489625e76452561937ce0ce874548 Mon Sep 17 00:00:00 2001
From: Ferdi Franceschini <ffr@ansto.gov.au>
Date: Wed, 10 Sep 2014 14:43:29 +1000
Subject: [PATCH] Use the new anstocapture command SICS-764

---
 site_ansto/instrument/util/motor_utility.tcl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/site_ansto/instrument/util/motor_utility.tcl b/site_ansto/instrument/util/motor_utility.tcl
index 8fce55ca..d40f6363 100644
--- a/site_ansto/instrument/util/motor_utility.tcl
+++ b/site_ansto/instrument/util/motor_utility.tcl
@@ -57,12 +57,12 @@ proc prun {args} {
       lappend drlist $mot [SplitReply [$mot posit2unit $pname]]  
     }
     clientput run {*}$drlist
-    capture run {*}$drlist
+    anstocapture run {*}$drlist
   } message ] {
     set msg_list [split $message \n]
     set start [lsearch $msg_list ERROR*]
     if {$start == -1} {
-      return $messge
+      return $message
     } else {
       return [join [lrange $msg_list $start end-1] \n]
     }
@@ -78,12 +78,12 @@ proc pdrive {args} {
       lappend drlist $mot [SplitReply [$mot posit2unit $pname]]  
     }
     clientput drive {*}$drlist
-    capture drive {*}$drlist
+    anstocapture drive {*}$drlist
   } message ] {
     set msg_list [split $message \n]
     set start [lsearch $msg_list ERROR*]
     if {$start == -1} {
-      return $messge
+      return $message
     } else {
       return [join [lrange $msg_list $start end-1] \n]
     }