           ; body
           (subs page 
             (+ (.indexOf page "<div class=\"content\">" 0) 21 )
-            (+ (.indexOf page "<div class=\"taxonomy\">" (.indexOf page "<div class=\"content\">" 0)
+            (+ 
+               (if ( = (.indexOf page "<div class=\"taxonomy\">" (.indexOf page "<div class=\"content\">" 0)) -1) 
+		              (.indexOf page "<div class=\"node-full_links\">" (.indexOf page "<div class=\"content\">" 0) )
+                  (.indexOf page "<div class=\"taxonomy\">" (.indexOf page "<div class=\"content\">" 0) ) 
                ) 0 )
           )
         )

    
    page (
      if (= (count (filter #(= (compare (% :reference) reference) 0 ) @stories )) 0)
        (slurp (URLDecoder/decode reference))
        
    )
    listofintro

(defn get-introduction [source]
   ( let [
       reference (str 
            (URLEncoder/encode (str ""
              (subs source 
                (+
                  (.indexOf source "href=\""
