--- a/lisp/mule/general-late.el	Sat Aug 25 21:51:21 2007 +0000
+++ b/lisp/mule/general-late.el	Sun Aug 26 20:00:42 2007 +0000
@@ -29,18 +29,19 @@
 ;; the language-specific code a chance to create its coding systems.
 
 (setq posix-charset-to-coding-system-hash
-      (eval-when-compile
-	(let ((res (make-hash-table :test 'equal)))
-	  ;; We want both normal and internal coding systems in order
-	  ;; to pick up coding system aliases.
-	  (dolist (coding-system (coding-system-list 'both-normal-and-internal) res)
-	    (setq coding-system
-		  (symbol-name coding-system))
-	    (unless (or (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
-			(string-match #r"^\(internal\|mswindows\)" coding-system))
-	      (puthash 
-	       (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
-	       (coding-system-name (intern coding-system)) res)))))
+      (loop
+        ;; We want both normal and internal coding systems in order
+        ;; to pick up coding system aliases.
+        for coding-system in (coding-system-list 'every)
+        with res = (make-hash-table :test #'equal)
+        do
+        (setq coding-system (symbol-name coding-system))
+        (unless (or (string-match #r"\(-unix\|-mac\|-dos\)$" coding-system)
+                    (string-match #r"^\(internal\|mswindows\)" coding-system))
+          (puthash 
+           (replace-in-string (downcase coding-system) "[^a-z0-9]" "")
+           (coding-system-name (intern coding-system)) res))
+        finally return res)
 
       ;; In a thoughtless act of cultural imperialism, move English, German
       ;; and Japanese to the front of language-info-alist to make start-up a