       :init-continuous-focus (core isContinuousFocusEnabled)
       :init-width (core getImageWidth)
       :init-height (core getImageHeight)
+      :init-shutter-state (when-not (empty? (core getShutterDevice)) (core getShutterOpen))
       :binning (core getProperty (core getCameraDevice) "Binning")
       :bit-depth (core getImageBitDepth)
       :pixel-size-um (core getPixelSizeUm)

  (with-core-setting [getAutoShutter setAutoShutter false]
    (let [shutter (core getShutterDevice)]
      (when open-before
        (device-best-effort shutter
          (core setShutterOpen true)))
      (wait-for-pending-devices)
      (device-best-effort (core getCameraDevice) (core snapImage))
      (swap! state assoc :last-image-time (elapsed-time @state))
      (when close-after
        (device-best-effort shutter
          (core setShutterOpen false))))))

(defn load-property-sequences [property-sequences]
  (let [new-seq (not= property-sequences @active-property-sequences)]

    (core setAutoShutter (@state :init-auto-shutter))
    (set-exposure (core getCameraDevice) (@state :init-exposure))
    (set-stage-position (@state :default-z-drive) (@state :init-z-position))
    (when-let [state (@state :init-shutter-state)]
      (set-shutter-open state))
    (when (and (@state :init-continuous-focus)
               (not (core isContinuousFocusEnabled)))
      (core enableContinuousFocus true))
