 
 (defn vzctl 
   [this action] 
-  {:pre [(= (.status this) "running")]}
+  ; {:pre [(= (.status this) "running")]}
   (execute (config :hypervisor) [(<< "vzctl ~{action}")]))
 

  (:use 
    [trammel.core :only  (defconstrainedrecord)]
    [clojure.core.memoize :only (memo-ttl)]
    [taoensso.timbre :only (debug info error warn)]
    [clojure.core.strint :only (<<)]
    [celestial.core :only (Vm )]
    [celestial.ssh :only (execute)]

  (when-let [features (:features spec)] 
    ;vzctl set 170 --features "nfs:on" --save 
    (doseq [f features] 
      (trace "enabling feature" f)
      (vzctl this (<< "set ~{vmid} --features \"~{f}\" --save")))) )


(defn key-set [h] (->> h keys (into #{})))

