         [server-state (assoc m :status :invalid :status-info :bad-key)])
       [server-state (assoc m :status :invalid :status-info :auth)])
 
-    :coll-get
-    [server-state (assoc m :status :ok
-                         :value (get-in server-state
-                                        [:realms (:cur-realm m)
-                                         :collsets (:cur-realm-collset m)
-                                         :colls (:cur-realm-collset-coll m)]))]
-
     [server-state (assoc m :status :invalid :status-info :invalid-op)]))
 
 ; --------------------------------------------


; --------------------------------------------

; TODO: Split between logical schema and physical runtime objects.

(defn coll-handler [actx coll-state m]
  [coll-state nil])


    {:rev rev
     :name name
     :coll-ch coll-ch}))

; --------------------------------------------

(defn make-initial-server-state [actx]
  (let [c (make-coll actx 0 "default")]
