Index: CPAN/Audio/APETags.pm
===================================================================
RCS file: /home/cvs/cvsroot/slim/server/CPAN/Audio/APETags.pm,v
retrieving revision 1.2
diff -u -p -B -r1.2 APETags.pm
--- CPAN/Audio/APETags.pm	13 May 2004 17:57:32 -0000	1.2
+++ CPAN/Audio/APETags.pm	30 Sep 2004 04:56:28 -0000
@@ -137,7 +137,7 @@ sub _parseTags {
 	my $fh	 = $self->{'fileHandle'};
 	my ($tmp,$tagLen,$tagItemKey,$tagFlags,$tagItemVal);
 
-	seek $fh, 2, 0;
+	seek $fh, 0, 2;
 	my $filelen = tell $fh;
 	
 	# Seek to the location of the known APE header/footer
Index: Slim/Formats/Musepack.pm
===================================================================
RCS file: /home/cvs/cvsroot/slim/server/Slim/Formats/Musepack.pm,v
retrieving revision 1.1
diff -u -p -B -r1.1 Musepack.pm
--- Slim/Formats/Musepack.pm	6 May 2004 02:25:27 -0000	1.1
+++ Slim/Formats/Musepack.pm	30 Sep 2004 04:56:29 -0000
@@ -23,8 +23,15 @@ use MP3::Info ();
 
 my %tagMapping = (
 	'TRACKNUMBER'	=> 'TRACKNUM',
-	'DATE'		=> 'YEAR',
+	'DATE'			=> 'YEAR',
 	'DISCNUMBER'	=> 'DISC',
+	'Genre'			=> 'GENRE',
+	'Artist'		=> 'ARTIST',
+	'Comment'		=> 'COMMENT',
+	'Album'			=> 'ALBUM',
+	'Year'			=> 'YEAR',
+	'Track'			=> 'TRACKNUM',
+	'Title'			=> 'TITLE',
 );
 
 # Given a file, return a hash of name value pairs,
@@ -42,8 +49,8 @@ sub getTag {
 		return undef;
 	}
 
-	# There should be a TITLE tag if the APE tags are to be trusted
-	if (defined $tags->{'TITLE'}) {
+	# There should be a Title tag if the APE tags are to be trusted
+	if (defined $tags->{'Title'}) {
 
 		# map the existing tag names to the expected tag names
 		while (my ($old,$new) = each %tagMapping) {