--- a/lisp/packages.el	Tue Feb 22 22:56:02 2011 +0100
+++ b/lisp/packages.el	Thu Mar 17 23:42:59 2011 +0100
@@ -515,9 +515,7 @@
 		    (load file-name)
 		    ;; dumped-lisp.el could have set this ...
 		    (if package-lisp
-			(mapcar #'(lambda (base)
-				  (funcall handle base))
-			      package-lisp))))))
+			(mapcar handle package-lisp))))))
 	package-load-path))
 
 (defun packages-load-package-dumped-lisps (package-load-path)