--- a/lisp/bytecomp.el	Wed Oct 29 04:06:33 2008 +0900
+++ b/lisp/bytecomp.el	Wed Oct 29 12:59:48 2008 +0900
@@ -1618,7 +1618,10 @@
 	(unless byte-compile-overwrite-file
 	  (ignore-file-errors (delete-file target-file)))
 	(if (file-writable-p target-file)
-	    (write-region 1 (point-max) target-file)
+	    ;; prevent generic hooks from changing our format, eg,
+	    ;; latin-unity is known to change the coding system!
+	    (let ((write-region-pre-hook nil))
+	      (write-region 1 (point-max) target-file))
 	  ;; This is just to give a better error message than write-region
 	  (signal 'file-error
 		  (list "Opening output file"