 ; ----------------------------------------------------------------
 (defn process-log-entry [ realtime-log-entry ]
   (do
-    (println (str "**** Processing realtime record change: "))
-    (println (str "      "  "realtime-log-entry"))
-    (println (str "      "  realtime-log-entry))
-    (println (str "      "))
-    (println (str "      "  "@server-side-cached-queries"))
-    (println (str "      "  @server-side-cached-queries))
-    (println (str "      "))
-    (println (str "Count: " (-> @server-side-cached-queries keys count str)))
+    ;(println (str "**** Processing realtime record change: "))
+    ;(println (str "      "  "realtime-log-entry"))
+    ;(println (str "      "  realtime-log-entry))
+    ;(println (str "      "))
+    ;(println (str "      "  "@server-side-cached-queries"))
+    ;(println (str "      "  @server-side-cached-queries))
+    ;(println (str "      "))
+    ;(println (str "Count: " (-> @server-side-cached-queries keys count str)))
 
     (let [queries (keys @server-side-cached-queries)]
       (doall (for [query queries]
                (do
                  (if (= (get query :db-table) (get realtime-log-entry :record_table_name))
                    (do
-                     (println (str "    "))
-                     (println (str "    " "Query"))
-                     (println (str "    " query))
-                     (println (str "    "))
-
-                     (println (str "    " "Before"))
-                     (println (str "    " @(get @server-side-cached-queries query)))
-                     (println (str "    "))
-                     (println (str "    " @(:clients @(get @server-side-cached-queries query))))
+                     ;(println (str "    "))
+                     ;(println (str "    " "Query"))
+                     ;(println (str "    " query))
+                     ;(println (str "    "))
+
+                     ;(println (str "    " "Before"))
+                     ;(println (str "    " @(get @server-side-cached-queries query)))
+                     ;(println (str "    "))
+                     ;(println (str "    " @(:clients @(get @server-side-cached-queries query))))
 
                      (update-query-in-cache  query)
 
-                     (println (str "    "))
-                     (println (str "    " "After"))
-                     (println (str "    " @(get @server-side-cached-queries query)))
-                     (println (str "    "))
-                     (println (str "    " @(:clients @(get @server-side-cached-queries query))))
-                     (println (str "    "))
-
-                     (println (str "clients:"))
-                     (println (str "    " (keys @server-side-realtime-clients)))
-                     (println (str "    "))
+                     ;(println (str "    "))
+                     ;(println (str "    " "After"))
+                     ;(println (str "    " @(get @server-side-cached-queries query)))
+                     ;(println (str "    "))
+                     ;(println (str "    " @(:clients @(get @server-side-cached-queries query))))
+                     ;(println (str "    "))
+
+                     ;(println (str "clients:"))
+                     ;(println (str "    " (keys @server-side-realtime-clients)))
+                     ;(println (str "    "))
                      ))))))))
 
 

"
          ]

        (println "Coils trigger function exists: " coils-trigger-fn-exists)
        (if (not coils-trigger-fn-exists )
            (korma.core/exec-raw   [sql-to-create-trigger-fn []]   [])
            nil

        query-time         (quot (System/currentTimeMillis) 1000)
        ]
    (do
      ;(println (str "    " ))
      ;(println (str "    update-query-in-cache" ))
      ;(println (str "    " query))

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