   (str stormroot "/stormconf.ser"))
 
 (defn master-inbox [conf]
-  (let [ret (str (conf STORM-LOCAL-DIR) "/inbox")]
+  (let [ret (str (master-local-dir conf) "/inbox")]
     (FileUtils/forceMkdir (File. ret))
     ret ))
 
+(defn supervisor-local-dir [conf]
+  (let [ret (str (conf STORM-LOCAL-DIR) "/supervisor")]
+    (FileUtils/forceMkdir (File. ret))
+    ret
+    ))
+
 (defn supervisor-stormdist-root
-  ([conf] (str (conf STORM-LOCAL-DIR) "/stormdist"))
+  ([conf] (str (supervisor-local-dir conf) "/stormdist"))
   ([conf storm-id]
       (str (supervisor-stormdist-root conf) "/" storm-id)))
 

(defn read-yaml-config [name]
  (clojurify-structure (Utils/findAndReadConfigFile name true)))

(defn master-stormdist-root [conf storm-id]
  (str (conf STORM-LOCAL-DIR) "/stormdist/" storm-id))

(defn master-stormjar-path [stormroot]
  (str stormroot "/stormjar.jar"))

  (str stormroot "/" RESOURCES-SUBDIR))

(defn ^LocalState supervisor-state [conf]
  (LocalState. (str (supervisor-local-dir conf) "/localstate")))


(defn worker-root
