                          result (filter
                                  #(not (nil? %))
                                  (concat
+                                  ;; --------------------
+                                  ;; Single words
                                   (if (< terms-lenght (* dict-lenght 5))
+                                    ;; Iterate through passed text index
                                     (map (fn [[wd ; BytesRef word
                                                ps ; Positions [[beg end]... ]
                                                ]]

                                                    (get-positions te))
                                               (get-positions te))))
                                         br-words search-words))
                                  (map (fn [br-phrase phrase]
                                         (if with-stemmed
                                           (let [phrase-str

                                                      ps))
                                               ps)))
                                         (term-iter))
                                    ;; Iterate through dictionary words
                                    (map (fn [br-word word]
                                           (if (.seekExact te br-word)
                                             (if with-stemmed
