Index: mttroot/mtt/bin/trans/dia2abg.pl
==================================================================
--- mttroot/mtt/bin/trans/dia2abg.pl
+++ mttroot/mtt/bin/trans/dia2abg.pl
@@ -166,11 +166,11 @@
     print_debug("CREATING unique_raw_list...\n");
     open (RAW,">$component_list_file") ||
 	die "Cannot open $component_list_file for writing.\n";
 
     my (%reverse_component_id_tag) = reverse (%component_id_tag);
-    foreach my $val (values(%component_id_tag)) {	
+    foreach my $val (sort values(%component_id_tag)) {	
 	my ($id, $type);
 	$id = $reverse_component_id_tag{$val};
 	$type = $component_id_type{$id};
 	$_ = $val;
 	id_cleaner();