                             (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 producer-list))
                
                ; Final clean up
                (ccstring/trim (subs producer-string 2))))))

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

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

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