                                   records
                                   ))
                     (get @query-atom :values))))))
+        ;(log "(get @query-atom :values): " (get @query-atom :values))
 
 
     ; -----------------------------------------------
     ; load the records in
     ; -----------------------------------------------
-    (let [
-          list-of-ids         (map
-                                  (fn[id] (get (@query-atom :values) id))
-                                   list-of-record-positions)
-          ]
+    (let [  list-of-ids                     (map  (fn[id] (get (@query-atom :values) id))   list-of-record-positions)
+            list-of-ids-with-nils-removed   (filter  #(not (nil? %))   list-of-ids)
+            ]
+      ;(log "list-of-ids: " list-of-ids)
+      ;(log "list-of-ids-with no nils: " list-of-ids-with-nils-removed)
 
       (doall
        (map
-        (fn [ record-id ] (load-record  query-key  record-id))
-        list-of-ids
+        (fn [ record-id ]
+          (do
+              (load-record  query-key  record-id)))
+        list-of-ids-with-nils-removed
         )
        (update-all-data-windows-for-query    query-key)
 

      (do
        (reset!  query-atom
                 (assoc @query-atom :values {}))
        (reset!  query-atom
                 (assoc @query-atom :values
                   (merge




       ;(log "Client realtime records: " )
       (doseq [the-table    list-of-tables]
         (let [list-of-ids      (keys (get (-> realtime-update-check-response :records) the-table))]
         (doseq [id     list-of-ids]
