Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcl/tcl/ChangeLog,v
retrieving revision 1.368
diff -u -r1.368 ChangeLog
--- ChangeLog	2001/02/16 09:26:30	1.368
+++ ChangeLog	2001/02/20 16:01:35
@@ -1,3 +1,8 @@
+2001-02-20  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
+
+	* tests/string.test (string-11.49): Added test for case in [string
+	match] where it fails to handle UTF-8 characters correctly.
+
 2001-02-15  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
 
 	* generic/tclCmdMZ.c (Tcl_SplitObjCmd): Improved efficiency of
Index: tests/string.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/string.test,v
retrieving revision 1.26
diff -u -r1.26 string.test
--- tests/string.test	2000/09/06 18:35:13	1.26
+++ tests/string.test	2001/02/20 16:01:35
@@ -843,6 +843,10 @@
 test string-11.48 {string match, *special case} {
     string match "?\\*" "a*"
 } 1
+test string-11.49 {string match; *, -nocase and UTF-8} {
+    string match -nocase [binary format I 717316707] \
+	    [binary format I 2028036707]
+} 1
 
 test string-12.1 {string range} {
     list [catch {string range} msg] $msg
