# HG changeset patch
# User Steve Kemp <steve@steve.org.uk>
# Date 1209669819 -3600
# Node ID 9780818e4f2fe3289a962eeb658800f527363b72
# Parent  c9262aa2918a1da8ea4e3a3b80f17a354242840d
  DOn't strip the suffix; that has already happened

diff -r c9262aa2918a -r 9780818e4f2f bin/chronicle
--- a/bin/chronicle	Wed Apr 16 19:34:44 2008 +0100
+++ b/bin/chronicle	Thu May 01 20:23:39 2008 +0100
@@ -1720,14 +1720,6 @@
     my ($file) = (@_);
 
     #
-    #  Strip suffix.
-    #
-    if ( $file =~ /(.*)\.(.*)/ )
-    {
-        $file = $1;
-    }
-
-    #
     #  Get rid of non-alphanumeric Al characters
     #
     $file =~ s/[^a-z0-9]/_/gi;