          query-atom                 (get @client-query-cache   query-key)
          list-of-record-positions   (range (:start params) (inc (:end params)))
        ]
-    (log (str "     :" query-key))
-    (log (str "     :" records))
+   ; (log (str "     :" query-key))
+   ; (log (str "     :" records))
 
     ; -----------------------------------------------
     ; update the record count in the query

    ; update the record IDs in the query
    ; -----------------------------------------------
    (if query-atom
      (reset!  query-atom
               (assoc @query-atom :values
                 (merge
                  (apply merge (map
                                (fn[record-pos
                                    record-id]   {record-pos  record-id})

                                list-of-record-positions
                                records
                                ))
                  (get @query-atom :values)))))


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


                 (let [new-query-atom  (get @client-query-cache  query-key)]


                   ;(log (str "     :                old        : " (:timestamp old-val)))
                   ;(log (str "     :                new        : " (:timestamp new-val)))
                   ;(log (str "     : (add-watch data-query-atom: " (sort query-key)))
                   (if (or
                        (not (= (:start old-val) (:start new-val)))
                        (not (= (:end   old-val) (:end   new-val)))
                        (>  (:timestamp new-val) (:timestamp old-val))
                        )
                     (do
                       ;(js/alert (pr-str "Query changed: " query-key))
