(lookup-words): Fix last change.

lisp/ChangeLog

+2003-01-30  Dave Love  <fx@gnu.org>
+
+	* textmodes/ispell.el (lookup-words): Fix last change.
+
 2003-01-29  John Paul Wallington  <jpw@gnu.org>
 
 	* font-lock.el (lisp-font-lock-keywords-1): Match `deftheme'.

lisp/textmodes/ispell.el

@@ -1929,8 +1929,9 @@ Optional second argument contains the dictionary to use; the default is
 	    (while (search-backward "*" nil t) (insert "."))
 	    (setq word (buffer-string))
 	    (erase-buffer))
-	  ;; Use apply since `lookup-dict' can be nil.
-	  (setq status (apply #'call-process prog nil t nil args word lookup-dict))
+	  (setq status (if lookup-dict
+			   (call-process prog nil t nil args word lookup-dict)
+			 (call-process prog nil t nil args word)))
 	  ;; grep returns status 1 and no output when word not found, which
 	  ;; is a perfectly normal thing.
 	  (if (stringp status)