        (or (:slice event) 0)
        (if (:relative-z event)
          (or (get-z-position (:position event) z-drive)
-             (@state :init-z-position)))
-         0)))
+             (@state :init-z-position))
+         0))))
     
 (defn make-event-fns [event out-queue]
   (list

  (:import [org.micromanager AcqControlDlg]
           [org.micromanager.api AcquisitionEngine]
           [org.micromanager.acquisition AcquisitionWrapperEngine LiveAcqDisplay TaggedImageQueue]
           [org.micromanager.acquisition.engine SequenceSettings]
           [org.micromanager.navigation MultiStagePosition StagePosition]
           [mmcorej TaggedImage Configuration]
           [java.util.prefs Preferences]

  (let [out-queue (GentleLinkedBlockingQueue.)
        acq-thread (Thread. #(run-acquisition this 
          (convert-settings settings) out-queue))
        processors (ProcessorStack. out-queue (.getTaggedImageProcessors acq-eng))
        out-queue-2 (.begin processors)
        display (LiveAcqDisplay. mmc out-queue-2 settings (.channels settings)
          (.save settings) acq-eng)]
    (def outq out-queue)
    (.start acq-thread)
