diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el
index eeb153e44c1..7bb9f6145a7 100644
--- a/lisp/ps-mule.el
+++ b/lisp/ps-mule.el
@@ -1559,7 +1559,7 @@ This checks if all multi-byte characters in the region are printable or not."
 		    ps-current-font (1+ ps-current-font)))))))
 
   ;; If the header contains non-ASCII and non-Latin1 characters, prepare a font
-  ;; and glyphs for the first occurance of such characters.
+  ;; and glyphs for the first occurrence of such characters.
   (if (and ps-mule-header-charsets
 	   (not (eq (car ps-mule-header-charsets) 'latin-iso8859-1)))
       (let ((font-spec (ps-mule-get-font-spec (car ps-mule-header-charsets)