 
 (defn try-get-one [id]
   (try 
-    (mc/find-one-as-map *db* EXERCISE {:_id id})
+    (dissoc (mc/find-one-as-map *db* EXERCISE {:_id id}) :comments)
     (catch Exception exception
       (.error logger (str "Unable to get ex " id " " exception)))))
 

(def timestamps (atom {}))

(def min-term-length 2)
(def max-term-length 15)

(def search-per-page 20)


(defn tags-to-string [tags]
  (apply str (interpose " " tags)))

(def re-term #"[a-zåäæö#:0-9_]+")

(defn stem-word [term]
  (when term
