   (update! state side (apply assoc (cons card args))))
 
 (defn resolve-prompt [state side {:keys [choice card] :as args}]
-  (let [prompt (get-in @state [side :prompt 0])
+  (let [prompt (first (get-in @state [side :prompt]))
         choice (if (= (:choices prompt) :credit)
                  (min choice (get-in @state [side :credit]))
                  choice)]

        (swap! state update-in [:corp :register :scored-agenda] #(+ (or % 0) (:agendapoints c)))
        (gain-agenda-point state :corp (:agendapoints c))
        (set-prop state :corp c :advance-counter 0)
        (when-let [current (get-in @state [:runner :current 0])]
          (say state side {:user "__system__" :text (str (:title current) " is trashed.")})
          (trash state side current))
        (trigger-event state :corp :agenda-scored (assoc c :advance-counter 0))))))

    (swap! state update-in [:runner :register :stole-agenda] #(+ (or % 0) (:agendapoints c)))
    (gain-agenda-point state :runner (:agendapoints c))
    (set-prop state :runner c :advance-counter 0)
    (when-let [current (first (get-in @state [:corp :current]))]
      (say state side {:user "__system__" :text (str (:title current) " is trashed.")})
      (trash state side current))
    (trigger-event state :runner :agenda-stolen c)))
