Index: mttroot/mtt/bin/trans/cse2smx_lang
==================================================================
--- mttroot/mtt/bin/trans/cse2smx_lang
+++ mttroot/mtt/bin/trans/cse2smx_lang
@@ -113,11 +113,11 @@
 ON GENTRANSEG; % Segmentation
 
 OFF GENDECS;  % No declarations
 MAXEXPPRINTLEN!* := 80;
 TEMPVARNUM!* := 1;
-TEMPVARNAME!* := 'mtt_s;
+TEMPVARNAME!* := 'mtt_tmp;
 %% '
 % Optimise
 $optimise
 
 
@@ -188,18 +188,18 @@
 %Shut the  output according to the language.
  GENTRANSHUT "$1_$rep.body";
 EOF
 
 if [ "$lang" = "m" ]; then
-  lang_header $noglobals $parameters $1 $rep m 'mttx,mttu,mttt,mttpar' $out > $1_$rep.m
-
-  echo '#====== Start of code ======#' >> $1_$rep.m
-
+#  lang_header $noglobals $parameters $1 $rep m 'mttx,mttu,mttt,mttpar' $out > $1_$rep.m
+  mtt_header $1 $rep m > $1_$rep.m
   cat $1_$rep.body | mtt_p2m >> $1_$rep.m
+  echo "## END Code" >> $1_$rep.m
+  echo "endfunction" >> $1_$rep.m
 fi
  
 # Now invoke the standard error handling.
 mtt_error_r cse2smx_lang.log