             #(set-property [d p v]))
           #(when-lets [exposure (:exposure event)
                        camera (core getCameraDevice)]
-             (device-best-effort (set-exposure camera exposure)))
+             (set-exposure camera exposure))
           #(when check-z-ref
              (recall-z-reference current-position))
           #(when-let [wait-time-ms (:wait-time-ms event)]

(defn acq-sleep [interval-ms]
  (log "acq-sleep")
  (when (and (@state :init-continuous-focus)
    (not (core isContinuousFocusEnabled)))
      (core enableContinuousFocus true))
  (let [target-time (+ (@state :last-wake-time) interval-ms)
        delta (- target-time (jvm-time-ms))]
    (when (pos? delta)

          (for [runnable (event :runnables)]
            #(.run runnable))
          #(device-best-effort (core getCameraDevice)
            (wait-for-pending-devices)
            (expose event)
            (collect event out-queue)
            (stop-trigger)))))))

(defn execute [event-fns]
  (doseq [event-fn event-fns :while (not (:stop @state))]
