anchor.diff:       (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)
  +           (st-json:jso "user" (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)
  
positive.code:      (let ((user (potato.core:current-user)))
         (apply #'st-json:jso
                "user" (user-as-json user)
                "channels" (load-domain-and-channel-information-as-json user)
                "websocket_url" *external-websocket-listen-address*
                "upload_location" (ecase potato.upload:*default-upload-location*
                                    (:s3 "s3)")
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defun user-as-json (user)
    (st-json:jso "id" (potato.core:user/id user)
                 "description" (potato.core:user/description user)
                 "nickname" (potato.core:user/nickname user)
                 "image_name" (potato.core:user/image-name user)))
  
  (define-api-method (api-channel-users-screen "/channel/([a-z0-9]+)/users" t (channel-id))
    (api-case-method
  