- random edit

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