From f4bd5bd56c5e16428e8c2cfe37de5fb5526519eb Mon Sep 17 00:00:00 2001
From: koennecke <koennecke>
Date: Fri, 20 Oct 2006 14:54:53 +0000
Subject: [PATCH] - random edit

---
 mcstas/dmc/vdmccom.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mcstas/dmc/vdmccom.tcl b/mcstas/dmc/vdmccom.tcl
index 108d1fda..8cf451c3 100644
--- a/mcstas/dmc/vdmccom.tcl
+++ b/mcstas/dmc/vdmccom.tcl
@@ -17,6 +17,7 @@ if { [info exists vdmcinit] == 0 } {
   Publish wwwsics Spy
   Publish wwwfilefornumber Spy
   mcinstall
+  Publish gethm Spy
 }
 source $home/log.tcl
 source $home/nxsupport.tcl
@@ -389,6 +390,9 @@ proc wwwuser {} {
 proc wwwfilefornumber {num} {
     return [makeSimForNum $num]
 }
-
+#-------------------------------------------------------------------
+proc gethm {} {
+    banana uuget 0
+}