--- comics/fetch.pl.new	2013/02/05 14:31:57	1.8
+++ comics/fetch.pl.new	2013/02/25 13:48:21	1.9
@@ -9,7 +9,7 @@ use Getopt::Long;
 ## 
 ## Some default values
 ##
-my $ver		= q/$Id: fetch.pl.new,v 1.8 2013/02/05 14:31:57 nick Exp $/;
+my $ver		= q/$Id: fetch.pl.new,v 1.9 2013/02/25 13:48:21 nick Exp $/;
 my $comicFile   = "comics.conf";
 my %comics	= &readComicConfig ( $comicFile );
 my %opts        = &fetchOptions( );
@@ -116,7 +116,8 @@ sub readComicConfig ($$) {
 #######################################################################
 sub writeComic ($$) {
 	my ( $comics, $comic, $date ) = @_;
-	my $indexFile = $indexDir . "/index-" . $date->{'year2'} . $date->{'mon2'} .
+	my $indexFile = $indexDir . "/index-" . $days[$date->{'dow'}] .
+                        "-" . $date->{'year2'} . $date->{'mon2'} .
                         $date->{'day2'} . ".html";
 	my $content = <<EOF;