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