     (let [queries (keys @server-side-cached-queries)]
       (doall (for [query queries]
                (do
-                 (if (= (get query :db-table)   db-table)
+                 (if (= (get-table-name (get query :db-table))   db-table)
                    (do
                      ;(println (str "    "))
                      ;(println (str "    " "Query"))

        (swap! the-query assoc  :count         record-count)
        (swap! the-query assoc  :timestamp     query-time)

        ;(println (str "    clients: " @clients-atom))
        (doall (for [client @clients-atom]
                 (do
                   ;(println (str "    Client: " client))

      ;(println (str "    " ))
      ;(println (str "    update-query-in-cache" ))
      ;(println (str "    " query))
      ;(println (str "     existing-query: "  existing-query))

      (if (not existing-query)
        (swap! server-side-cached-queries assoc  query (atom {:clients  (atom #{})})))



      ;(println (str "    server: " @(get @server-side-cached-queries   query)))

      (let [the-query        (get @server-side-cached-queries   query)
            clients-atom     (:clients @the-query)
