--- a/tests/automated/mule-tests.el	Thu Jan 28 01:15:10 2010 -0600
+++ b/tests/automated/mule-tests.el	Thu Jan 28 02:48:45 2010 -0600
@@ -551,20 +551,23 @@
   ;;---------------------------------------------------------------
   (with-temp-buffer
     (insert-file-contents (locate-data-file "HELLO"))
-    (let ((expected
+    (let ((sorted-charsets-in-HELLO
 	   '(arabic-iso8859-6 ascii chinese-big5-1 chinese-gb2312
-	     cyrillic-iso8859-5 ethiopic greek-iso8859-7 hebrew-iso8859-8
-	     japanese-jisx0208 japanese-jisx0212 katakana-jisx0201
-	     korean-ksc5601 latin-iso8859-1 latin-iso8859-2
-	     thai-xtis vietnamese-viscii-lower)))
-      (Assert-equal
+	     cyrillic-iso8859-5 ethiopic greek-iso8859-7
+	     hebrew-iso8859-8 japanese-jisx0208 japanese-jisx0212
+	     katakana-jisx0201 korean-ksc5601 latin-iso8859-1
+	     latin-iso8859-2 vietnamese-viscii-lower)))
+      (Assert-equal 
        ;; The sort is to make the algorithm of charsets-in-region
        ;; irrelevant.
        (sort (charsets-in-region (point-min) (point-max))
-	     #'string<) expected)
+	     #'string<)
+       sorted-charsets-in-HELLO)
       (Assert-equal 
-       (sort (charsets-in-string (buffer-substring (point-min) (point-max)))
-	     #'string<) expected)))
+       (sort (charsets-in-string (buffer-substring (point-min)
+						   (point-max)))
+	     #'string<)
+       sorted-charsets-in-HELLO)))
 
   ;;---------------------------------------------------------------
   ;; Language environments, and whether the specified values are sane.