This never prints "find-file"

(let [wsp-name     "blah"
      initial-file "myfilename"]
    (str "(progn (russ/open-workspace \"" wsp-name "\") "
         (when initial-file
           (str "(find-file \"" initial-file "\")") " ")
         ")"))