Index: /trunk/asma/Docs/STIL.txt
===================================================================
--- /trunk/asma/Docs/STIL.txt	(revision 756)
+++ /trunk/asma/Docs/STIL.txt	(revision 757)
@@ -1941,5 +1941,5 @@
 COMMENT: Silesian Atari Open 1995 music compo entry.
 
-/Composers/Kazimierczak_Leszek/Under_The_Open.sap
+/Composers/Kazimierczak_Leszek/Under_the_Open.sap
 COMMENT: Silesian Atari Open 1995 music compo entry.
 
@@ -5475,5 +5475,5 @@
  ARTIST: Camouflage
 
-/Unknown/The_Holly_and_the_Ivy.sap
+/Unknown/The_Holly_and_The_Ivy.sap
   TITLE: The Holly and the Ivy
  ARTIST: Traditional
Index: /trunk/tools/file-case.bat
===================================================================
--- /trunk/tools/file-case.bat	(revision 757)
+++ /trunk/tools/file-case.bat	(revision 757)
@@ -0,0 +1,1 @@
+dir /b /s ..\asma\*.sap | perl file-case.pl
Index: /trunk/tools/file-case.pl
===================================================================
--- /trunk/tools/file-case.pl	(revision 757)
+++ /trunk/tools/file-case.pl	(revision 757)
@@ -0,0 +1,16 @@
+my %f;
+while (<>) {
+	s/^.+\\asma\\// or die $_;
+	y!\\\r\n!/!d;
+	$f{$_}++;
+}
+open F, '../asma/new.m3u' or die;
+while (<F>) {
+	y/\r\n//d;
+	$f{$_} or print "new.m3u: $_\n";
+}
+open F, '../asma/Docs/STIL.txt' or die;
+while (<F>) {
+	y/\r\n//d;
+	$f{$_} or print "STIL.txt: $_\n" if s!^/!!;
+}