       ;; (message "%s: %s > %s ?" pkg-name cur-version new-version)
       (if new-version
           (version< cur-version new-version)
-        (cl-pushnew pkg-name configuration-layer--skipped-packages :test #'eq)
+        (cl-pushnew pkg-name
+                    configuration-layer--check-new-version-error-packages
+                    :test #'eq)
         nil))))
 
 (defun configuration-layer//get-packages-to-update (pkg-names)

(defvar configuration-layer--used-distant-packages '()
  "A list of all distant packages that are effectively used.")

(defvar configuration-layer--skipped-packages nil
  "A list of all packages that were skipped during last update attempt.")

(defvar configuration-layer--protected-packages nil

  (spacemacs-buffer/insert-page-break)
  (spacemacs-buffer/append "\nUpdating package archives, please wait...\n")
  (configuration-layer/retrieve-package-archives nil 'force)
  (setq configuration-layer--check-new-version-error-packages nil)
  (let* ((update-packages
          (configuration-layer//get-packages-to-update
           (mapcar 'car (object-assoc-list
                         :name configuration-layer--used-distant-packages))))
         (skipped-count (length
                         configuration-layer--check-new-version-error-packages))
         (date (format-time-string "%y-%m-%d_%H.%M.%S"))
         (rollback-dir (expand-file-name
                        (concat configuration-layer-rollback-directory
