Index: mttroot/mtt/bin/trans/make_stdin
==================================================================
--- mttroot/mtt/bin/trans/make_stdin
+++ mttroot/mtt/bin/trans/make_stdin
@@ -12,28 +12,28 @@
 Sys=$1
 lang=$2
 date=`date`
 outfile=$1_input.$2
 
-Nu=`mtt_getsize $Sys u` # Inputs 
+Nu=`mtt_getsize ${Sys} u` # Inputs 
 echo  "Creating $outfile for standard input"
 
 ## Pascal code
 make_p()
 {
 cat <<EOF > $outfile
-PROCEDURE $Sys_input(VAR mttu : InputVector;
+PROCEDURE ${Sys}_input(VAR mttu : InputVector;
                        mttx : StateVector;
                        mtty : OutputVector;
                        mttt : REAL;
                        par  : ParameterVector);
 
 {Created by MTT on $date for standard input to simulation}
 
 VAR t : REAL; Start:BOOLEAN;
 
-BEGIN{$Sys_input}
+BEGIN{${Sys}_input}
   {Zap comments}
   IF (input^ = chr("#")) THEN
   BEGIN
     readln;
     WHILE (input^ = chr("#")) DO readln;
@@ -43,16 +43,16 @@
   FOR mtti:=1 TO $Nu DO {Read the inputs}
     read(mttu[mtti]);
   readln; {Next line}
 
 
-END{$Sys_input};
+END{${Sys}_input};
 EOF
 }
 
 make_m() {
-mtt_header $Sys input m stdin > $outfile
+mtt_header ${Sys} input m stdin > $outfile
 cat >> $outfile <<EOF
 ## The "standard input"
 global MTT_input MTT_input_index MTT_input_last
   
   MTT_input_index = min(++MTT_input_index,MTT_input_last);