 
   (let [ds-fields          (get  @client-datasource-fields   data-source)
         fields-atom        (atom fields)                            ]
+
+    (log (str "keep-client-fields-up-tp-date: " data-source ":" fields))
 
     (if (nil? ds-fields)
       (swap! client-datasource-fields  assoc  data-source  fields-atom)

                              }
        ]

    (log (str "Calling keep-client-fields-up-tp-date"    data-source ":"  fields))
    (keep-client-fields-up-tp-date   data-source  fields)


