       ;(println (str "    " ))
       ;(println (str "    update-query-in-cache" ))
       ;(println (str "    " query))
+      ;(println (str "     existing-query: "  existing-query))
 
       (if (not existing-query)
         (swap! server-side-cached-queries assoc  query (atom {:clients  (atom #{})})))
 
 
+
+      ;(println (str "    server: " @(get @server-side-cached-queries   query)))
 
       (let [the-query        (get @server-side-cached-queries   query)
             clients-atom     (:clients @the-query)

                         response-atom    (:update-request @the-client)
                         ]
                     (if (not response-atom) (swap! the-query assoc  :update-request (atom {})))
                     (swap! (:update-request @the-client) assoc-in [:queries query] {:timestamp query-time})
                     ;(println (str "    responses: " (if response-atom @response-atom)))

                     ;                   (swap! (:update-request @the-query) assoc  1 2)
                     ))))))))


        (swap! the-query assoc  :count         record-count)
        (swap! the-query assoc  :timestamp     query-time)

        (println (str "    clients: " @clients-atom))
        (doall (for [client @clients-atom]
                 (do
                   ;(println (str "    Client: " client))
