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

  (try
    (let [stream (ByteArrayInputStream. form-instance)]
      (.parse (DataModelPullParser. stream (CommCareTransactionParserFactory. sandbox) true true)))
    (catch Exception e (doall 
                         (println "Error processing the form result: " (.getMessage e))
                         (st/print-stack-trace e)))))


    ":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 stack of session frames"
    ":frame - Show the current session frame"
    ":help - Show this message"))

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