@@ -227,8 +227,9 @@
     (when (plist-get status :error)
       (error "Error while loading: %s"
              (cdr (plist-get status :error))))
     (forward-paragraph)
+    (decode-coding-region (point-min) (point-max) 'utf-8)
     (let ((list (read (current-buffer))))
       (kill-buffer)
       (with-current-buffer buf
         (let (ent)
@@ -256,8 +257,9 @@
       (error "Error while loading: %s"
              (cdr (plist-get status :error))))
     (prog-mode)
     (forward-paragraph)
+    (decode-coding-region (point) (point-max) 'utf-8)
     (save-excursion
       (save-match-data
         (while (search-forward "#f" nil t)
           (unless (cadddr (syntax-ppss))