           ]
 
       (do
+        (clear-client-cache   app-session-id)
+
         (println (str "!getfilecontents        id: "        id))
         (println (str "!getfilecontents  app-schema-id: "   app-schema-id))
         (println (str "" ))

      (swap! server-side-realtime-clients assoc client-realtime-id (atom {:queries (atom {})    :records (atom {})    :update-request (atom {})})))))









(defn !getfilecontents [{:keys [id  app-session-id]}]
  (if id
    (let [content-records   (cond
