    (ds/query :kind Ship)))
 
 (defn put-ship [name data]
-  (let [s (Ship. name (ds/as-text (pr-str data)))]
+  (let [s (Ship. (upper-case name) (ds/as-text (pr-str data)))]
     (ds/save! s)
     name))
 

(ns viewer.model.ship
  (:require [appengine-magic.services.datastore :as ds]))

(ds/defentity Ship [^{:tag :key} name, ^{:tag :clj} data])


       ships))

(defn get-ship [name]
  (let [ship (first (ds/query :kind Ship :filter (= :name (upper-case name))))]
    (if (not (nil? ship))
      {:name (:name ship) :data (read-string (.getValue (:data ship)))})))

