diff --git a/src/mount/core.cljc b/src/mount/core.cljc
index 22f1952..aeaf93f 100644
--- a/src/mount/core.cljc
+++ b/src/mount/core.cljc
@@ -181,6 +181,9 @@
           (with-ns ns name))
         v)))
 
+(defn running-states []
+  (keys @running))
+
 (defn- unvar-state [s]
   (->> s (drop 2) (apply str)))  ;; magic 2 is removing "#'" in state name