anchor.diff:             (cons "limit" limit)))
       (when drilldown drilldown))))
   
  -(defun execute-cloudant-query (term &key drilldown limit sort-field sort-order (start 0) fl (api "search-documents"))
  +(defun execute-search-query (term &key drilldown limit sort-field sort-order (start 0) fl (api "search-documents"))
     (call-rest-method
      api
  -   :parameters (get-cloudant-query-plist term drilldown limit start sort-field sort-order fl)))
  +   :parameters (get-search-query-plist term drilldown limit start sort-field sort-order fl)))
   
   (defun delete-suggestion (id)
     (call-rest-method
  
positive.code: 	(values nil nil nil (get-error-reason result)))))
  
  (defun get-synset-ids (term drilldown start limit)
    (let* ((result (execute-cloudant-query term
                                           :drilldown drilldown
                                           :api "search-documents"
                                           :start start
  
negative.code: 
  (defun get-synset-word-en (id)
    "Returns the FIRST entry in the word_en property for the given SYNSET-ID"
    (let* ((result (execute-search-query (format nil "id:\"~a\"" id)))
  	 (synset (car (get-docs result))))
      (car (getf synset :|word_en|))))
  
  (defun get-search-query-plist (q drilldown limit start sort-field sort-order fl)
    (remove
     nil
     (append 
  