     (swap!  (get record :queries) conj  query)
 
 
-    (let [record-value  (get record :value)]
-
-      (if (not @record-value)
-        (go
-          (>! client-record-cache-requests
-             {:source              (query :data-source)
-              :db-table            (query :db-table)
-              :fields              (get-default-fields-for-data-source (query :data-source))
-              :id                   record-id
-              :query                query
-              :data-session-id     @data-session-id
-              :realtime            (get query :realtime)
-              }))
-        ))))
-
-
-
-
-
-
-
-
-
-
+    (if (not @(get record :value))
+      (go
+       (let [
+             record-request     {:source              (query :data-source)
+                                 :db-table            (query :db-table)
+                                 :fields              (get-default-fields-for-data-source (query :data-source))
+                                 :id                   record-id
+                                 :data-session-id     @data-session-id
+                                 :realtime            (get query :realtime)
+                                 }]
+         (log "    :" record-request)
+         (>! client-record-cache-requests   record-request)))
+      )))
 
 
 

       (if record-value
         (let [
               record-container     (get-or-create-record  source-name  id)
               queries              (get record-container :queries)
               record-value-atom    (get record-container :value)
               ]

