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

;;----------------------------------------

(def narwhals-length
     (dtransform 
      (dfilter 
       whales
       "type=narwhal" 

  ;; TODO: accept ready-made View
  (insert *metamodel* (do-filter tgt-view src-model attr-keys filter-fn)))

(defn dmorph [#^Model src-model #^String suffix & #^Collection attribute-descrips]
  ;; TOODO: accept ready-made View ?
  (insert *metamodel* (apply do-transform suffix src-model attribute-descrips)))

