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)
  	(id (getf suggestion :|id|))
  	(hits (getf
  	       (getf (clesc:es/search "votes" :terms `(("suggestion_id" ,id)))
  		     :|hits|)
  	       :|hits|))
  	(votes (mapcar (lambda (hit) (getf hit :|_source|)) hits)))
  
negative.code: 	 (yason:*parse-object-key-fn* #'make-keyword)
  	 (hits (getf
  		(getf (clesc:es/search "suggestion" :terms `(("doc_id" ,id)
  							     ("type" "suggestion"))
  				       :size 100 :fields-order '(("date" "desc")))
  		      :|hits|)
  		:|hits|))
  	 (suggestions (mapcar (lambda (hit) (getf hit :|_source|)) hits)))
  