Index: library/msgcat/msgcat.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/msgcat/msgcat.tcl,v
retrieving revision 1.20
diff -u -r1.20 msgcat.tcl
--- library/msgcat/msgcat.tcl	31 Mar 2004 02:03:02 -0000	1.20
+++ library/msgcat/msgcat.tcl	31 Mar 2004 02:31:51 -0000
@@ -233,10 +233,13 @@
 	set Loclist {}
 	set word ""
 	foreach part [split $Locale _] {
-	    set word [string trimleft "${word}_${part}" _]
-	    set Loclist [linsert $Loclist 0 $word]
+	    set word [string trim "${word}_${part}" _]
+	    if {$word ne [lindex $Loclist 0]} {
+		set Loclist [linsert $Loclist 0 $word]
+	    }
 	}
 	lappend Loclist {}
+	set Locale [lindex $Loclist 0]
     }
     return $Locale
 }
