                    (when (and x y) (core setXYPosition stage-dev x y))))
 
 (defn set-property
-  ([prop] (apply* core setProperty prop)))
+  ([prop] (core setProperty (prop 0) (prop 1) (prop 2))))
   
 (defn send-device-action [dev action]
   (send-off (device-agents dev) (fn [_] (action))))

      (set (@state :init-system-state)) 
      (set (get-system-config-cached))))))

(defn cleanup []
  (log "cleanup")
  (do-when #(.update %) (:display @state))

  (core setAutoShutter (@state :init-auto-shutter))
  (core setExposure (@state :init-exposure))
  (core setPosition (core getFocusDevice) (@state :init-z-position))
  (when (@state :init-continuous-focus)
    (core enableContinuousFocus true))
  (return-config))
  
(defn run-acquisition [this settings out-queue] 
