diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3df35d9b6bc..a8cd1686c93 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-01-19  Reiner Steib  <Reiner.Steib@gmx.de>
+
+	* textmodes/ispell.el (ispell-change-dictionary): Ensure that
+	aspell dictionaries are initialized when called non-interactively.
+
 2007-01-19  Chong Yidong  <cyd@stupidchicken.com>
 
 	* progmodes/compile.el (compilation-loop): New arg limit.  Handle
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 241a6670d2d..26de082eb13 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -2607,6 +2607,7 @@ By just answering RET you can find out what the current dictionary is."
 	       (mapcar 'list (ispell-valid-dictionary-list)))
 	  nil t)
 	 current-prefix-arg))
+  (ispell-maybe-find-aspell-dictionaries)
   (unless arg (ispell-buffer-local-dict 'no-reload))
   (if (equal dict "default") (setq dict nil))
   ;; This relies on completing-read's bug of returning "" for no match