Index: tclUtil.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclUtil.c,v
retrieving revision 1.18
diff -u -r1.18 tclUtil.c
--- tclUtil.c	2000/05/08 21:59:59	1.18
+++ tclUtil.c	2001/03/29 08:46:53
@@ -1944,7 +1944,7 @@
     }
     end--;
     if (*end != '{') {
-	if (isspace(UCHAR(*end)) /* INTL: ISO space. */
+	if (isspace(UCHAR(*end)) && (*end < 0x80)	/* INTL: ISO space. */
 		&& ((end == start) || (end[-1] != '\\'))) {
 	    return 0;
 	}
@@ -1956,7 +1956,7 @@
 	}
 	end--;
     } while (*end == '{');
-    if (isspace(UCHAR(*end))) {	/* INTL: ISO space. */
+    if (isspace(UCHAR(*end)) && (*end < 0x80)) {	/* INTL: ISO space. */
 	return 0;
     }
     return 1;
