         (view (get-value 'view json))
         (root-id (get-value 'root json))
         (height (numeric-value json 'height nil)))
-          (switch-to-buffer (name-for-view-buffer root-id json) context)
+          (switch-to-buffer-context (name-for-view-buffer root-id json) context)
           (receive-context json context)
           (if (equal (get-mode) brain-const-search-mode)
               ;; Always leave a search view with height 1, rather than that of the last view.

    (to-query-list (if context context (get-context)))))
    
(defun fetch-path (path context params &optional handler)
  (http-get-and-receive (url-for-request path (to-params context params)) handler context))

(defun fetch-path-post (path context params &optional handler)
  (http-post-and-receive (url-for-request path)
    (to-params context params) handler context))

(defun fetch-view (&optional context)
  (http-get-and-receive (url-for-view-request context) nil context))

(defun fetch-history ()
  (let ((context (create-search-context)))

(defun set-property (id name value)
  (if (in-setproperties-mode)
    (let ((params (list :id id :name name :value value)))
       (fetch-path "set?request=" nil params 'receive-set-properties-response))))

(defun push-view ()
  (let ((context (clone-context)) (entity (buffer-string)))
