         (= command ":stack")
         (do (print-stack session)
             :stay)
+        (= command ":frame")
+        (do (print-frame session)
+            :stay)
         (= command ":lang")
         (do (set-locale arg)
             :stay)

    ":home - Navigate to the home menu of the app"
    ":lang <lang> - change the language to <lang> (e.g. :lang en)"
    ":today <date> - change the date returned by today()/now() (e.g. :today 2015-07-25). ':today' resets to today's date"
    ":stack - Show the current session frame stack"
    ":help - Show this message"))

(defn build-restore-user-sandbox [prototype-factory restore-file]

        form-xmlns (.getForm session)
        locale nil] ; TODO: pass in locale
    (println "Starting form entry with the following stack frame")
    (print-frame session)
    (if (nil? form-xmlns)
      (do (finish-session session) true)
      (let [form-result (form-player/play
