         query-time         (quot (System/currentTimeMillis) 1000)
         ]
     (do
-      (println (str "    " ))
-      (println (str "    update-query-in-cache" ))
-      (println (str "    " query))
+      ;(println (str "    " ))
+      ;(println (str "    update-query-in-cache" ))
+      ;(println (str "    " query))
 
       (if (not existing-query)
         (swap! server-side-cached-queries assoc  query (atom {:clients  (atom #{})})))

  (let [client-data-atom    (if server-side-realtime-clients  (get @server-side-realtime-clients  client-data-session-id))
        response-atom       (if client-data-atom  client-data-atom )
        ]
    (println (str "      " ))
    (println "SERVER: check-for-server-updates for client: " client-data-session-id)
    ;(println (str "      " (keys @server-side-realtime-clients)))
    (println (str "      " (if client-data-atom  @client-data-atom)))
    (println (str "      response: " (if response-atom  @(get @response-atom :update-request )  )))
    (if response-atom  @(get @response-atom :update-request )  {})))



      (if (not this-query)
        (swap! client-queries   assoc  query {}))

      ;(println "")
      ;(println "  add-client-to-query")
      ;(println (str "    " @server-side-realtime-clients))
      ;(println "")

      )))

