           ]
       (do
         (create-cache-for-table   db-table)
-        (println (str "Value before: "  (get-record-from-server-cache-for-id  db-table  id )))
+        ;(println (str "Value before: "  (get-record-from-server-cache-for-id  db-table  id )))
         (if table
           (swap!  table assoc id (atom {:value record :timestamp query-time :clients clients}))
           nil)
-        (println (str "Value after: "  (get-record-from-server-cache-for-id  db-table  id )))))))
+        ;(println (str "Value after: "  (get-record-from-server-cache-for-id  db-table  id )))
+        ))))
 
 
 




  (cond
   ; ----------------------------------------------------------------
   ; if this is a realtime query



(defn inform-clients-about-record  [db-table   id]
  ;(println "inform-clients-about-record ")
  (let [the-record        (get-record-from-server-cache-for-id  db-table  id )
        clients-atom      (:clients the-record)
        ]
    ;(println (str "    the-record: " the-record))
    ;(println (str "    Record Clients: " @clients-atom))

    (doall (for [client @clients-atom]
             (do
               ;(println (str "    Client: " client))
               (let [the-client       (get @server-side-realtime-clients  client)
                     response-atom    (:update-request @the-client)
                     ]
                 (if (not response-atom) (swap! response-atom assoc  :update-request (atom {})))
                 (swap! (:update-request @the-client) assoc-in [:records db-table id] {:timestamp (get the-record :timestamp)})
                 ;(println (str "    responses: " (if response-atom @response-atom)))
