anchor.diff:  (defmethod expand-data-path ((profile data-profile) (path data-manager-data-path))
     (expand-default-path
      path
  -   :root (uiop:merge-pathnames* (str:concat (context-name path) "-web-context")
  -                                (dirname path))))
  -
  -(defun data-manager-data-path-for-context (name)
  -  (let ((ref (format nil "~a-web-context" name)))
  -    (make-instance 'data-manager-data-path
  -                   :ref ref
  -                   :dirname (uiop:xdg-data-home +data-root+ ref))))
  +   :root (uiop:strcat (uiop:native-namestring (dirname path))
  +                      (uiop:directory-separator-for-host)
  +                      (str:concat (context-name path) "-web-context"))))
   
   (define-class data-manager-cache-path (data-manager-data-path)
     ((dirname (uiop:xdg-cache-home +data-root+)))
     (:export-class-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
   
  -(define-class gtk-extensions-data-path (data-path)
  -  ((dirname (uiop:xdg-config-home +data-root+ "extensions"))
  +(define-class gtk-extensions-data-path (data-manager-data-path)
  +  ((dirname (uiop:native-namestring (uiop:xdg-config-home +data-root+)))
      (ref :initform "gtk-extensions"))
     (:export-class-name-p t)
     (:accessor-name-transformer (class*:make-name-transformer name)))
  
positive.code:                                   (make-instance 'webkit-website-data-manager
                                                   :base-data-directory (expand-path data-manager-data-path)
                                                   :base-cache-directory (expand-path data-manager-cache-path))))))
             (gtk-extensions-path (expand-path (gtk-extensions-data-path-for-context name)))
             (cookie-manager (webkit:webkit-web-context-get-cookie-manager context)))
        (unless (or ephemeral-p
                    (internal-context-p name))
          (webkit:webkit-web-context-add-path-to-sandbox
           context (namestring (asdf:system-relative-pathname :nyxt "libraries/web-extensions/")) t)
          (when gtk-extensions-path
            ;; TODO: Should we also use `connect-signal' here?  Does this yield a memory leak?
            (gobject:g-signal-connect
             context "initialize-web-extensions"
  
negative.code:   "We shouldn't enable (possibly) user-identifying extensions for `nosave-data-profile'."
    nil)
  
  (defmethod expand-data-path ((profile data-profile) (path gtk-extensions-data-path))
    (expand-default-path
     path
     :root (uiop:strcat (uiop:native-namestring (dirname path))
                        (uiop:directory-separator-for-host)
                        (str:concat (context-name path) "-gtk-extensions"))))
  
  (define-class gtk-download (download)
    ((gtk-object)
  