anchor.diff:  			("action" . ,suggestion-type)
   			("params" . ,params)
   			("user" . ,login)
  -			("status" . "new") ;; new accepted not-accepted committed
  +			("status" . "new")
   			("provenance" . ,provenance)
   			("id" . ,suggestion-id)))))
  -    (clesc:es/add "suggestion" "suggestion" suggestion :id suggestion-id)
  +    (clesc:es/add "suggestion" "suggestion" suggestion :id suggestion-id :refresh "wait_for")
       (register-audit db "add-suggestion" synset-id type value login provenance)))
   
   (defmethod delete-suggestion ((backend (eql 'es)) id)
  -  (clesc:es/delete "suggestion" "suggestion" id))
  +  (clesc:es/delete "suggestion" "suggestion" id :refresh "wait_for"))
   
   ;; audit
   (defun register-audit (db action doc-id field value user provenance)
  
positive.code: 	 (yason:*parse-object-key-fn* #'make-keyword)
  	 (hits (getf
  		(getf (clesc:es/search "suggestion" :terms `(("doc_id" ,id)
  							     ("type" "suggestion")))
  		      :|hits|)
  		:|hits|))
  	 (suggestions (mapcar (lambda (hit) (getf hit :|_source|)) hits)))
  
negative.code: 		     ("provenance" . "web")
  		     ("tags" . (get-tags params))
  		     ("id" . ,id)))))
      (clesc:es/add "suggestion" "suggestion" comment :id id :refresh "wait_for")))
  
  
  (defmethod delete-comment ((backend (eql 'es)) id)
    (clesc:es/delete "suggestion" "suggestion" id :refresh "wait_for"))
  
  ;; suggestions
  (defmethod add-suggestion ((backend (eql 'es)) synset-id doc-type suggestion-type params login)
  