                             (rest screen-writer-set))
                         
                         ; Final clean up
-                        (ccstring/trim (subs screen-writer-string 2))))))))
+                        (if (not-empty screen-writer-string)
+                            (ccstring/trim (subs screen-writer-string 2)))))))))

                    (rest director-list))
                
                ; Final clean up
                (ccstring/trim (subs director-string 2))))))

(defn construct-producers
    "Construct a producers string based on the provided parsed page content"

                                      cast-character-value (:tag (first (:content (first cast-character))))]
                                    (if (= (str cast-character-value) ":a")
                                        (if (not-empty cast-name-value)
                                            [(first (:content cast-name-value))]))))))
                        ; Next row
                        (let [cast-character (html/select (first cast-rows) [:td.char])]
                            (if (not-empty cast-character)
                                (let [cast-character-value (:tag (first (:content (first cast-character))))]
                                    
                                    ; We don't want too many cast entries
                                    (if (<= (count cast-list) 20)
                                        
                                        ; Lets only continue if we're still dealing with 'real' characters
                                        (if (= (str cast-character-value) ":a")
                                            (rest cast-rows)))))))
                        
                ; Convert list to string
                (loop [cast-string ""
                       cast-list-temp cast-list]
                    (if (not-empty cast-list-temp)
                        ; Recurrsively compile cast string
                        (recur (str cast-string (str ", " (first cast-list-temp)))
                            ; Next element
                            (rest cast-list-temp))
                        
                        ; Finaly clean up
                        (if (not-empty cast-string)
                            (ccstring/trim (subs cast-string 2))))))))))

(defn construct-directors
    "Construct a directors string based on the provided parsed page content"
