        ]
     (log (pr-str ""))
     ;(log (pr-str "populate: "  query-key " : " records))
-    (log (pr-str "  datbase returned      : "  records))
+    ;(log (pr-str "  database returned      : "  records))
     ;(log (pr-str "        : "  records-count))
 
     ; -----------------------------------------------

   ;(log (pr-str (count (keys @client-query-cache))))

   (let [x            (remote  !check-for-server-updates  {:client-data-session-id  @data-session-id} )
         y            (-> x :queries keys first)
         ]
     (if y
     (let [
         xxx          (merge y {:data-source (keyword (get y :db-table)) :realtime true :table nil})
         new-key2     (dissoc (dissoc xxx :start) :end)
         ]

     (log "Client realtime: " y)
     (>! client-query-cache-requests  {
                                  :query-key     new-key2

                                  :subset-range  {
                                                  :start   (:start  y)
                                                  :end     (:end    y)
                                                  ;:start    1
                                                  ;:end      20
                                                  } })

     )))) 3000)




       ;(log (pr-str "Order:  " (filter (fn[g] g) (vals ui-order-of-records))))
       ;(log (pr-str "Query count:" query-count))
       ;(log (pr-str "Total Records:" (-> @data-query-atom :values)))
       ;(log (pr-str "update-data-window-for-query : "  (-> @data-query-atom :values) ))



