                                              "missing")))
                          (add-to-list 'manual-install-list package-cons)))
                    (progn (package-download-transaction
-                           (package-compute-transaction
-                            () (mapcar (lambda (package-cons)
-                                         (list (package-desc-name (car package-cons))
-                                               (package-desc-version (car package-cons))))
-                                       manual-install-list) ))
+                           (kotct/with-stable-package-archive-contents
+                            (package-compute-transaction
+                             () (mapcar (lambda (package-cons)
+                                          (list (package-desc-name (car package-cons))
+                                                (package-desc-version (car package-cons))))
+                                        manual-install-list))))
                           (kill-buffer "*packup: packages to upgrade*")
                           (message "Dependency installation completed.")))))
 

(defvar kotct/packup-marker-char ?x
  "In Packup, the current mark character.
This is what the do-commands look for, and the flag the mark-commands store.")

(defun kotct/package-latest-available (package)
  "Get the lastest-available package-desc for PACKAGE, preferring repositories

               (if (or auto-update
                       (y-or-n-p "Auto install/update these package(s)?"))
                   (progn (package-download-transaction
                           (kotct/with-stable-package-archive-contents
                            (package-compute-transaction
                             () (mapcar (lambda (package-cons)
                                          (list (package-desc-name (car package-cons))
                                                (package-desc-version (car package-cons))))
                                        install-list))))
                          (kill-buffer "*packup: packages to upgrade*")
                          (message "Dependency installation completed."))
                 (let ((manual-install-list nil))
