diff --git a/bin/dc-list b/bin/dc-list
new file mode 100755
index 0000000..9c0c2e0
--- /dev/null
+++ b/bin/dc-list
@@ -0,0 +1,7 @@
+#!/bin/bash
+
+# List all docker-compose instances
+#  "com.docker.compose.service"
+
+docker ps -q | while read; do docker inspect $REPLY --format '{{index .Config.Labels "com.docker.compose.project.working_dir"}}'; done | sort | uniq
+