 ;;----------------------------------------
 
 (def longer-whales-weight
-     (dtransform longer-whales "weight" :time :version :time :version :weight))
+     (dtransform longer-whales "weight" :id :version :id :version :weight))
 
 (def #^Model heavier-whales-length
-     (dtransform heavier-whales "length" :time :version :time :version :length))
+     (dtransform heavier-whales "length" :id :version :id :version :length))
 
 ;;----------------------------------------
 ;; demonstrate transformation - a synthetic field - metric tons per metre

    (start-client "Cetacea")))

(def attributes
     (list 
      :time DateMidnight
      :version (Integer/TYPE)
      :type String
      :length (Float/TYPE)
      :weight (Float/TYPE)))

       '(:type)
       #(= "narwhal" %))
      "length"
      :id
      :version
      :id
      :version
      :length)
     )
