   (let [user-input (read-line)]
     (when (if (string/starts-with? user-input ":")
             (process-command entry-controller (subs user-input 1))
-            (answer-question user-input))
+            (answer-question entry-controller user-input))
       (recur entry-controller))))
 
 ;; FormDef CommCareSession String String -> None

        choices-text))))

(defn show-question [entry-prompt]
  (println (.getQuestionPrompt entry-prompt))
  (let [choices (.getSelectChoices entry-prompt)]
    (when (not (nil? choices))
      (show-choices entry-prompt choices))

           [org.javarosa.core.services.locale Localization]
           [org.javarosa.core.services.storage StorageManager]
           [org.javarosa.core.model Constants]
           [org.javarosa.core.model.data AnswerDataFactory SelectMultiData UncastData]
           [org.javarosa.core.model.condition EvaluationContext]
           [org.javarosa.core.model.instance FormInstance]
           [org.javarosa.core.model.trace StringEvaluationTraceSerializer]
           [org.javarosa.engine XFormEnvironment]
           [org.javarosa.form.api FormEntrySession FormEntryController 
            FormEntrySessionReplayer FormEntrySessionReplayer$ReplayError]
           [org.javarosa.xpath XPathNodeset XPathParseTool]
           [org.javarosa.xpath.expr XPathFuncExpr]
           [org.javarosa.xpath.parser XPathSyntaxException]
           [org.commcare.session SessionFrame]
