           #(when z-drive
              (let [z (compute-z-position event)]
                (set-stage-position z-drive z)))
-          (event :runnables)
+          (doseq [runnable (event :runnables)]
+            (.run runnable))
           #(do (wait-for-pending-devices)
                (expose event)
                (collect event out-queue)

        super-channels (all-super-channels simple-channels (get-camera-channel-names))]
     (JSONObject. {
      "BitDepth" (core getImageBitDepth)
      "Binning" (core getProperty (core getCameraDevice) "Binning")
      "Channels" (count super-channels)
      "ChNames" (JSONArray. (map :name super-channels))
      "ChColors" (JSONArray. (map #(.getRGB (:color %)) super-channels))         

		summary-metadata (make-summary-metadata summary)
		cache (doto (MMImageCache. (TaggedImageStorageRam. summary-metadata))
						(.setSummaryMetadata summary-metadata))]
		(doto (VirtualAcquisitionDisplay. cache nil)
                           (.promptToSave false)
                           (initialize-display-ranges))))

