                   (title-for projects)]]
             [:li [:a
                   {:onClick (back-to-properties history)}
-                  (title-for properties :title-key :address-street-two)]
+                  (title-for properties)]
              " " (when (:fetching devices) [:span {:class "glyphicon glyphicon-cloud-download spinner"}])]]
            (om/build devices-table devices {:opts {:histkey :devices}})]])))))
 


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; properties
(defn properties-table [properties owner]
  (reify
    om/IRender

                 {:handler  (fn [x]
                              (println "Fetching properties for project: " new-project-id)
                              (om/update! properties :fetching false)
                              (om/update! properties :data (mapv slugify-property x))
                              (om/update! properties :selected nil))
                  :error-handler (fn [{:keys [status status-text]}]
                                   (om/update! properties :fetching false)
