      (mappings {:os :image :hostname :name})
      (transform (machine-ts machine))
      (assoc :ssh_keys [(hypervisor* :digital-ocean :ssh-key)])
-     (select-keys drop-ks)
+     (selections [drop-ks [:system-id]] )
      )
   )
 
 (defmethod vconstruct :digital-ocean [{:keys [digital-ocean machine] :as spec}]
-  (let [translated (translate spec)]
+  (let [[translated ext] (translate spec)]
      (provider-validation translated)
-     (->Droplet (hypervisor* :digital-ocean :token) translated)
+     (->Droplet (hypervisor* :digital-ocean :token) translated ext)
    )
   )
 

(ns digital.provider
   "Digital ocean provider"
   (:require  
     [slingshot.slingshot :refer (throw+)]
     [clojure.tools.trace :as tr]
     [digital.validations :refer (provider-validation)]
     [clojure.core.strint :refer (<<)]
