Index: openacs-4/packages/photo-album/www/album-export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/album-export.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/photo-album/www/album-export.tcl	16 Jul 2010 19:11:22 -0000	1.3
+++ openacs-4/packages/photo-album/www/album-export.tcl	16 Jul 2010 19:54:16 -0000	1.4
@@ -89,7 +89,7 @@
                     set original_destination [file join ${path} ${file_name}]
                     set destination $original_destination
                     while { [file exists $destination] } {
-                        set destination "${original_destination}-$count"
+                        set destination "[string range ${original_destination} 0 end-4]-$count[string range ${original_destination} end-3 end]"
                         incr count 1
                     }