anchor.diff:      (operate-os-package "Installing packages..." #'ospm:install profile packages)))
   
   (define-command-global uninstall-os-package ()
  -  "Uninstall select packages."
  +  "Uninstall selected packages."
     (assert-package-manager)
     (let* ((profile (first
                      (prompt
  
positive.code:     buffer))
  
  (define-command-global switch-os-generation ()
    "Switch generation of selected profile."
    (assert-package-manager)
    (let* ((profile (first
                     (prompt
  
negative.code:   ((prompter:name "Packages")
     (profile (error "Profile required."))
     (prompter:constructor
      (lambda (source)
        (ospm:list-generations (profile source)))))
    (:accessor-name-transformer (class*:make-name-transformer name)))
  
  