diff --git a/site_ansto/instrument/troubleShoot.tcl b/site_ansto/instrument/troubleShoot.tcl
index 2039481d..d570ec2e 100755
--- a/site_ansto/instrument/troubleShoot.tcl
+++ b/site_ansto/instrument/troubleShoot.tcl
@@ -1,7 +1,7 @@
 #!/usr/bin/env tclsh
 
-# $Revision: 1.8 $
-# $Date: 2006-11-07 01:56:50 $
+# $Revision: 1.9 $
+# $Date: 2006-11-29 21:25:07 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by $Author: ffr $
 
@@ -14,6 +14,13 @@ if { $argc > 0 } {
   set configFileName [lindex $argv 0]
 }
 
+# Use this to create an array of named parameters to initialise motors.
+proc params {args} {
+  upvar 1 "" x;
+  if [info exists x] {unset x}
+  foreach {k v} $args {set x([string tolower $k]) $v}
+}
+
 namespace eval sics_config {
 proc loadConfig {fName} {
   variable ContList