diff --git a/site_ansto/instrument/util/utility.tcl b/site_ansto/instrument/util/utility.tcl
index f6b52660..3e1fa5b3 100644
--- a/site_ansto/instrument/util/utility.tcl
+++ b/site_ansto/instrument/util/utility.tcl
@@ -1,7 +1,7 @@
 # Some useful functions for SICS configuration.
 
-# $Revision: 1.1 $
-# $Date: 2007-02-16 05:36:38 $
+# $Revision: 1.2 $
+# $Date: 2007-03-13 21:27:28 $
 # Author: Ferdi Franceschini (ffr@ansto.gov.au)
 # Last revision by $Author: ffr $
 
@@ -49,3 +49,12 @@ proc setpos {motor pos} {
 }
 publish setpos user
 publish SplitReply user
+
+proc getinfo {object} {
+  set wc [format "%s_*" $object];
+  set objlist [sicslist match $wc];
+  foreach v $objlist {
+    clientput [$v];
+  }
+}
+publish getinfo spy