Index: mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl
==================================================================
--- mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl
+++ mttroot/mtt/bin/trans/lbl2cmp_txt2m.pl
@@ -41,11 +41,12 @@
 ## files to read/write
 my ($cmp, $lbl, $out);
 
 my $sys = '';
 
-GetOptions ('sys=s' => \$sys);
+GetOptions ('sys=s' => \$sys,
+	    'debug' => \$debug);
 
 die usage() if ($sys eq '');
 
 $cmp = "${sys}_cmp.txt";
 $lbl = "${sys}_lbl.txt";
@@ -117,11 +118,11 @@
     print "read_cmp_line: type='$type', name='$name', rep='$rep'\n" if ($debug);
     return ($type, $name, $rep);
 }
 
 sub name_anonymous_component() {
-    my $type = @_;
+    my $type = $_;
     my ($name, $num);
     if (defined ($anonymous_component_type_index{$type})) {
 	$num = ++$anonymous_component_type_index{$type};
 	$name = "mtt${type}_${num}";
     } else {