--- a/lisp/loaddefs.el	Mon Aug 13 10:13:49 2007 +0200
+++ b/lisp/loaddefs.el	Mon Aug 13 10:14:14 2007 +0200
@@ -164,15 +164,12 @@
 (make-variable-buffer-local 'indent-tabs-mode)
 
 
-;;; This code also was not generated by autoload.el, because VM goes out
-;;; of its way to be perverse.
-
-
 ;;; Load in generated autoloads (made by autoload.el).
 ;; (condition-case nil
     ;; (load "auto-autoloads")
   ;; (file-error nil))
-(let ((dir load-path))
+(let ((dir load-path)
+      purify-flag)
   (while dir
     (condition-case nil
 	(load (concat (car dir) "auto-autoloads"))