diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd90e9e4728..12a640abf3d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-01  Dave Love  <fx@gnu.org>
+
+	* international/mule-diag.el (unicode-data): Find unicodedata-file
+	literally.
+
 2002-10-31  Dave Love  <fx@gnu.org>
 
 	* international/fontset.el: Doc fixes.
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 8ac28565197..8ba3fa06bce 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1232,7 +1232,7 @@ The list is null if CHAR isn't found in `unicodedata-file'."
     (unless (file-exists-p unicodedata-file)
       (error "`unicodedata-file' %s not found" unicodedata-file))
     (save-excursion
-      (set-buffer (find-file-noselect unicodedata-file))
+      (set-buffer (find-file-noselect unicodedata-file nil t))
       (goto-char (point-min))
       (let ((hex (format "%04X" char))
 	    found first last)