                    :tags (s/join " " tags)
                    :restricted (s/join " " restricted)
                    :description description
-                   :tests (s/join "\n" tests)}]
+                   :tests (s/join "\r\n\r\n" tests)}]
       (session/flash-put! k v))
     (response/redirect "/problems/submit")))
 

    (label :description "Problem Description")
    (text-area {:id "problem-description"} :description  (session/flash-get :description))
    [:br]
    (label :code-box "Problem test cases. Use two underscores (__) for user input. Multiple tests ought to be on one line each.")
    (text-area {:id "code-box" :spellcheck "false"}
               :code (session/flash-get :tests))
    [:p


(def-page problem-submission-page []
  [:div.instructions
   [:p "Thanks for choosing to submit a problem. Please make sure that you own the rights to the code you are submitting and that you wouldn't mind having us use the code as a 4clojure problem.  Once you've submitted your problem, it won't appear on the site until someone from the 4clojure team has had a chance to review it."]]
  (form-to {:id "problem-submission"} [:post "/problems/submit"]
    (hidden-field :author (session/flash-get :author))
    (hidden-field :prob-id (session/flash-get :prob-id))
