   (log-event "sync-event: " event-type " " args)
   (when @event-debug*
     (println "sync-event: " event-type " " args "\n"))
+  (when @monitoring?*
+    (swap! monitor* assoc event-type args))
   (binding [overtone.libs.handlers/*log-fn* log/error]
     (let [event-info (apply hash-map args)]
       (apply handlers/sync-event handler-pool event-type event-info))))

  "Stops debug info from being printed out."
  []
  (reset! event-debug* false))

  (log-event "event: " event-type " " args)
  (when @event-debug*
    (println "event: " event-type " " args "\n"))
  (when @monitoring?*
    (swap! monitor* assoc event-type args))
  (binding [overtone.libs.handlers/*log-fn* log/error]
    (let [event-info (if (and (= 1 (count args))
                              (map? (first args)))
