            #'straight-use-package--straight-handler)
          (when (and (boundp 'use-package-defaults)
                     (listp use-package-defaults))
-           (setf (alist-get :straight use-package-defaults)
-                 '('(t) straight-use-package-by-default))))))))
+           (setq use-package-defaults (straight--alist-set
+                                       :straight
+                                       '('(t) straight-use-package-by-default)
+                                       use-package-defaults
+                                       'symbol))))))))
 
 (if straight-enable-use-package-integration
     (straight-use-package-mode +1)

       (fmakunbound 'use-package-handler/:straight)
       (when (and (boundp 'use-package-defaults)
                  (listp use-package-defaults))
         (setf (alist-get :straight use-package-defaults nil 'remove) nil)))))
  (setq straight-use-package--last-version nil)
  (when straight-use-package-mode
    (setq straight-use-package--last-version straight-use-package-version)

  "Register MELPA-STYLE-RECIPE as a recipe override.
This puts it in `straight-recipe-overrides', depending on the
value of `straight-current-profile'."
  (setq straight-recipe-overrides
        (straight--alist-set
         straight-current-profile
         (straight--alist-set
          (car melpa-style-recipe)
          (cdr melpa-style-recipe)
          (alist-get straight-current-profile straight-recipe-overrides)
          'symbol)
         straight-recipe-overrides
         'symbol)))

;;;;; Rebuilding packages

