                                          }
                                         "n"))
         ]
-    web-record)
+    (do
+      (println (str "WebRecord: " web-record))
+      web-record))
   )
 
 


(defn check-messages []
  (let [messages-waiting (neo4j "match (n:AskForEndorsement) return n" {} "n")]
    (dorun (map process-ask-for-endorsement  messages-waiting)))

  (let [messages-waiting (neo4j "match (n:AskForEndorsementContactReceiver) return n" {} "n")]
    (dorun (map process-ask-for-endorsement-ask-receiver  messages-waiting)))



          )
        []
        )))






(defn request-endorsement [{:keys [from-full-name
