     (log @state)))
 
 (defn -isRunning [this]
-  (:running @(.state this)))
+  (if-let [acq-thread (:acq-thread @(.state this))]
+    (.isAlive acq-thread)
+    false))
 
 (defn -isFinished [this]
   (or (get @(.state this) :finished) false))


;; globals

(def ^:dynamic state (atom {:running false :stop false}))

(def settings (atom nil))


    (swap! (.state this) assoc
      :pause false
      :stop false
      :finished false
      :last-wake-time (jvm-time-ms)
      :last-stage-positions (into {} [[default-z-drive z]
