--- lisp/loaddefs.el
+++ lisp/loaddefs.el	2010-08-12 15:38:16.235126810 +0000
@@ -25974,7 +25974,7 @@ as its \"correct\" spelling; then the qu
 
 \(fn)" t nil)
 
-(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
+(define-obsolete-function-alias 'spell-buffer 'ispell-buffer "23.1")
 
 (autoload 'spell-word "spell" "\
 Check spelling of word at or before point.
@@ -25983,7 +25983,7 @@ and `query-replace' the entire buffer to
 
 \(fn)" t nil)
 
-(make-obsolete 'spell-word 'ispell-word "23.1")
+(define-obsolete-function-alias 'spell-word 'ispell-word "23.1")
 
 (autoload 'spell-region "spell" "\
 Like `spell-buffer' but applies only to region.
@@ -25993,7 +25993,7 @@ for example, \"word\".
 
 \(fn START END &optional DESCRIPTION)" t nil)
 
-(make-obsolete 'spell-region 'ispell-region "23.1")
+(define-obsolete-function-alias 'spell-region 'ispell-region "23.1")
 
 (autoload 'spell-string "spell" "\
 Check spelling of string supplied as argument.
--- lisp/textmodes/spell.el
+++ lisp/textmodes/spell.el	2010-08-12 15:36:22.119126692 +0000
@@ -63,7 +63,7 @@ as its \"correct\" spelling; then the qu
   (with-no-warnings
     (spell-region (point-min) (point-max) "buffer")))
 ;;;###autoload
-(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
+(define-obsolete-function-alias 'spell-buffer 'ispell-buffer "23.1")
 
 ;;;###autoload
 (defun spell-word ()
@@ -82,7 +82,7 @@ and `query-replace' the entire buffer to
     (with-no-warnings
       (spell-region beg end (buffer-substring beg end)))))
 ;;;###autoload
-(make-obsolete 'spell-word 'ispell-word "23.1")
+(define-obsolete-function-alias 'spell-word 'ispell-word "23.1")
 
 ;;;###autoload
 (defun spell-region (start end &optional description)
@@ -145,7 +145,7 @@ for example, \"word\"."
 	     (query-replace-regexp (concat "\\b" (regexp-quote word) "\\b")
 				   newword)))))))
 ;;;###autoload
-(make-obsolete 'spell-region 'ispell-region "23.1")
+(define-obsolete-function-alias 'spell-region 'ispell-region "23.1")
 
 ;;;###autoload
 (defun spell-string (string)