Index: /trunk/Ohana/src/perl/src/merge.lists
===================================================================
--- /trunk/Ohana/src/perl/src/merge.lists	(revision 34)
+++ /trunk/Ohana/src/perl/src/merge.lists	(revision 35)
@@ -21,4 +21,6 @@
 if (@ARGV != 3) { die "USAGE: merge.lists (list.split) (list.msplit) (list.master) [-update]\n" ;}
 
+print STDERR "$ARGV[0], $ARGV[1], $ARGV[2]\n";
+
 # load names from SPLIT and MEF
 open (FILE, "$ARGV[0]");
@@ -34,4 +36,11 @@
 @master = <FILE>;
 close (FILE);
+
+$N = @split;
+print STDERR "N: $N\n";
+$N = @mef;
+print STDERR "N: $N\n";
+$N = @master;
+print STDERR "N: $N\n";
 
 # merge new entries into a single list, compare with state in master