anchor.diff:    "Downloads a file. Note that this call goes to the api-content server."
     (let ((parameter (when rev-supplied-p
                        `(("rev" . ,rev))))
  -        (merged-path (concatenate 'string *api-content* root "/" (encode-path path))))
  +        (merged-path (concatenate 'string *files-uri* root "/" (encode-path path))))
       (multiple-value-bind (body status)
           (cl-oauth:access-protected-resource merged-path *access-token* :request-method :auth :user-parameters parameter :drakma-args `(:parameters ,parameter))
         (handle-response body status nil))))
  
positive.code: ;;; "cl-dropbox" goes here. Hacks and glory await!
  
  (defparameter *api-root* "https://api.dropbox.com/1")
  (defparameter *consumer-token* nil)
  
  (defparameter *get-request-token-endpoint* (concatenate 'string *api-root* "/oauth/request_token"))
  
negative.code:         (cl-oauth:access-protected-resource merged-path *access-token* :request-method :auth :user-parameters parameter :drakma-args `(:parameters ,parameter))
        (handle-response body status))))
  
  (defun shares (&key (path nil path-supplied-p) (root "/dropbox") (decode t))
    "Creates and returns a shareable link to files or folders."
    (let ((merged-path (if path-supplied-p
                           (concatenate 'string *shares-uri* root "/" (encode-path path))
                           (concatenate 'string *shares-uri* root))))
      (multiple-value-bind (body status)
          (cl-oauth:access-protected-resource merged-path *access-token*)
        (handle-response body status))))
  
  (defun media (&key (path nil path-supplied-p) (root "/dropbox") (decode t))
    "Returns a link directly to a file."
    (let ((merged-path (if path-supplied-p
                           (concatenate 'string *media-uri* root "/" (encode-path path))
                           (concatenate 'string *media-uri* root))))
      (multiple-value-bind (body status)
          (cl-oauth:access-protected-resource merged-path *access-token*)
        (handle-response body status))))
  
  (defun thumbnails (&key (path nil path-supplied-p) (root "/dropbox") (decode nil))
    "Gets a thumbnail for an image. Note that this call goes to the api-content server."
    (let ((merged-path (if path-supplied-p
                           (concatenate 'string *thumbnails-uri* root "/" (encode-path path))
                           (concatenate 'string *thumbnails-uri* root))))
      (multiple-value-bind (body status)
          (cl-oauth:access-protected-resource merged-path *access-token* :request-method :auth)
        (handle-response body status decode))))
  
  ; File Operations
  (defun create-folder (&key path (root "dropbox") (decode t))
    "Creates a folder."
  