 
 (defn- node->transaction-item
   [node]
-  ; I'm not sure why I need to add the namespace
-  ; context again here
-  (with-namespace-context namespace-map
-    (node->model node transaction-item-attributes)))
+  (node->model node transaction-item-attributes))
 
 (def ^:private transaction-attributes
   [{:attribute :transaction-date


(defn- node->budget-item-period
  [node]
  (with-namespace-context namespace-map
    (node->model node budget-item-period-attributes)))

(defn- node->budget-item
  [node]


(defn- append-trading-attributes
  [transaction node]
  (with-namespace-context namespace-map
    (if (= :buy (:action transaction))
      (let [commodity-item-node (first ($x "trn:splits/trn:split[split:action = \"Buy\"]" node))
            commodity-account-node (first ($x (format "//gnc:book/gnc:account[act:id = \"%s\"]"
                                                      ($x:text "split:account" commodity-item-node))
                                              node))
            symbol ($x:text "act:commodity/cmdty:id" commodity-account-node)
            exchange (keyword (s/lower-case ($x:text "act:commodity/cmdty:space" commodity-account-node)))]
        (assoc transaction
               :shares (parse-decimal ($x:text "split:quantity" commodity-item-node))
               :commodity-account-id ($x:text "split:account" commodity-item-node)
               :account-id ($x:text "act:parent" commodity-account-node)
               :symbol symbol
               :exchange exchange))
      transaction)))

(defmethod process-node :gnc:transaction
  [node]
