anchor.diff:       (let ((user (potato.core:current-user)))
          (apply #'st-json:jso
                 "user" (user-as-json user)
  -              "channels" (load-domain-and-channel-information-as-json user)
  +              "domains" (load-domain-and-channel-information-as-json user)
                 "websocket_url" *external-websocket-listen-address*
                 "upload_location" (ecase potato.upload:*default-upload-location*
                                     (:s3 "s3)")
  
positive.code:      (let ((user (potato.db:load-instance 'potato.core:user uid :error-if-not-found nil)))
         (if (and user
                  (potato.core:common-user-domains (potato.core:current-user) uid))
             (user-as-json user)
             (raise-api-error "User not found" hunchentoot:+http-not-found+))))))
  
  (define-api-method (api-download-user-image "/users/([^/]+)/image" t (uid) :result-as-json nil)
  
negative.code:           unless (member domain-id found-domains :test #'equal)
              do (collect-domain (potato.db:load-instance 'potato.core:domain domain-id) nil))
          ;; Create the result tree
          (reverse tree)))))
  
  (define-api-method (api-channels2-screen "/channels2" nil ())
    (api-case-method
      (:get
       (st-json:jso "domains" (load-domain-and-channel-information-as-json (potato.core:current-user))))))
  
  (define-api-method (api-channel-info-screen "/channel/([a-z0-9]+)" t (cid))
    (api-case-method
  