--- a/lisp/package-info.el	Mon Aug 13 10:15:49 2007 +0200
+++ b/lisp/package-info.el	Mon Aug 13 10:16:16 2007 +0200
@@ -70,7 +70,10 @@
   (unless noninteractive
     (error "`batch-update-package-info' is to be used only with -batch"))
   (let ((version (nth 0 command-line-args-left))
-	(filename (nth 1 command-line-args-left)))
+	(filename (nth 1 command-line-args-left))
+	(requires (nth 2 command-line-args-left)))
+    (unless requires
+      (setq requires ""))
     (find-file package-info)
     (erase-buffer)
     (insert-file-contents-literally package-info-template)
@@ -82,6 +85,7 @@
 				      (file-name-nondirectory filename)))
     (pi-update-key "SIZE" (format "%d"
 				  (nth 7 (file-attributes filename))))
+    (pi-update-key "REQUIRES" requires)
     (save-buffers-kill-emacs 0)))
 
 (provide 'package-info)