diff --git a/site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl b/site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl
index 942aaaef..9c4a9ae5 100644
--- a/site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl
+++ b/site_ansto/instrument/config/hmm/hmm_configuration_common_1.tcl
@@ -1,5 +1,5 @@
-# $Revision: 1.9 $
-# $Date: 2007-04-01 05:34:26 $
+# $Revision: 1.10 $
+# $Date: 2007-04-01 05:38:16 $
 # Author: Mark Lesha (mle@ansto.gov.au)
 # Last revision by: $Author: ffr $
 
@@ -403,8 +403,10 @@ proc count_withbm {mode preset} {
   }
 
   proc save {} {
+    #TODO maybe add nxobj and point parameters.
+    set point 0
     nxcreatefile nexus_hmscan.dic;
-    hmm_save nxscript entry1 0;
+    hmm_save nxscript entry1 $point;
     nxscript makelink scanvar erun;
     nxscript_data clear;
     nxscript_data putint 0 $point;