Index: openacs-4/packages/attachments/www/go-to-attachment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/go-to-attachment.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/attachments/www/go-to-attachment.tcl	15 May 2007 20:14:19 -0000	1.9
+++ openacs-4/packages/attachments/www/go-to-attachment.tcl	16 May 2008 13:12:49 -0000	1.9.2.1
@@ -36,8 +36,12 @@
 	# Test if the filename contains the extension, otherwise append it
 	# This usually happens if you just rename the title (displayed filename) but forget
 	# to append the extension to it.
+
+	#file extension return "." extension without "."
+	set file_extension_aux [concat .$file_extension]
+
 	set extension [file extension $filename]
-	if {$extension ne $file_extension} {
+	if {$extension ne $file_extension_aux} {
 	    append filename ".${file_extension}"
 	}