diff -p -up amsn/gui.tcl.contact_list_double_extension amsn/gui.tcl --- amsn/gui.tcl.contact_list_extension 2009-06-27 23:45:11.000000000 -0300 +++ amsn/gui.tcl 2009-06-27 23:46:01.000000000 -0300 @@ -7419,10 +7419,10 @@ proc saveContacts2 { } { } set filename [tk_getSaveFile -filetypes $types -defaultextension ".$format" -initialfile "amsncontactlist.$format"] if {$filename != ""} { - if { [string match "$filename" "*.$format"] == 0 } { + if { [string match -nocase "*.$format" "$filename"] == 0 } { set filename "$filename.$format" - ::abook::saveToDisk $filename $format } + ::abook::saveToDisk $filename $format } destroy .savecontacts