Index: mttroot/mtt/lib/cr/perl/lcos.pm
==================================================================
--- mttroot/mtt/lib/cr/perl/lcos.pm
+++ mttroot/mtt/lib/cr/perl/lcos.pm
@@ -44,11 +44,11 @@
     my @args = split (/,/);	# split arguments
 
     $_ = $args[0];		# get component type
 
     # select rule to use
-    if (/EMTF|emtf/)	{ $retval = lcos_emtf	(@args); }
+    if (/^EMTF|emtf$/)	{ $retval = lcos_emtf	(@args); }
     
     # if a substitution has been made ($retval)
     if ($retval)
     {
 	return $retval;		# return substituted expression

Index: mttroot/mtt/lib/cr/perl/lin.pm
==================================================================
--- mttroot/mtt/lib/cr/perl/lin.pm
+++ mttroot/mtt/lib/cr/perl/lin.pm
@@ -49,19 +49,19 @@
     my @args = split (/,/);	# split arguments
 
     $_ = $args[0];		# get component type
 
     # select rule to use
-    if (/AE|ae/)	{ $retval = lin_amp	(@args); }
-    if (/AF|af/)	{ $retval = lin_amp	(@args); }
-    if (/C|c/)		{ $retval = lin_cir	(@args); }
-    if (/EMTF|emtf/)	{ $retval = lin_emtf	(@args); }
-    if (/FMR|fmr/)	{ $retval = lin_fmr	(@args); }
-    if (/GY|gy/)	{ $retval = lin_gy	(@args); }
-    if (/I|i/)		{ $retval = lin_cir	(@args); }
-    if (/R|r/)		{ $retval = lin_cir	(@args); }
-    if (/TF|tf/)	{ $retval = lin_tf	(@args); }
+    if (/^AE|ae$/)	{ $retval = lin_amp	(@args); }
+    if (/^AF|af$/)	{ $retval = lin_amp	(@args); }
+    if (/^C|c$/)	{ $retval = lin_cir	(@args); }
+    if (/^EMTF|emtf$/)	{ $retval = lin_emtf	(@args); }
+    if (/^FMR|fmr$/)	{ $retval = lin_fmr	(@args); }
+    if (/^GY|gy$/)	{ $retval = lin_gy	(@args); }
+    if (/^I|i$/)	{ $retval = lin_cir	(@args); }
+    if (/^R|r$/)	{ $retval = lin_cir	(@args); }
+    if (/^TF|tf$/)	{ $retval = lin_tf	(@args); }
     
     # if a substitution has been made ($retval)
     if ($retval)
     {
 	return $retval;		# return substituted expression

Index: mttroot/mtt/lib/cr/perl/lsin.pm
==================================================================
--- mttroot/mtt/lib/cr/perl/lsin.pm
+++ mttroot/mtt/lib/cr/perl/lsin.pm
@@ -44,11 +44,11 @@
     my @args = split (/,/);	# split arguments
 
     $_ = $args[0];		# get component type
 
     # select rule to use
-    if (/EMTF|emtf/)	{ $retval = lsin_emtf	(@args); }
+    if (/^EMTF|emtf$/)	{ $retval = lsin_emtf	(@args); }
     
     # if a substitution has been made ($retval)
     if ($retval)
     {
 	return $retval;		# return substituted expression