--- ispell.el.orig	2008-04-24 15:10:11.000000000 +0200
+++ ispell.el	2008-04-24 15:12:40.000000000 +0200
@@ -1253,8 +1253,7 @@
 	       (not (multibyte-string-p str)))
       (setq str (ispell-decode-string str))
       (or (multibyte-string-p str)
-	  (setq str (string-to-multibyte str)))
-      (setcar (nthcdr n slot) str))
+	  (setq str (string-to-multibyte str))))
     str))
 
 (defun ispell-get-casechars ()