diff --git a/utils/develop-status.pl b/utils/develop-status.pl
index b8b385c72..ce3378d9d 100755
--- a/utils/develop-status.pl
+++ b/utils/develop-status.pl
@@ -22,6 +22,17 @@ print "== Development status ==\n";
 #  $cont{$1} = 1;
 #}
 
+my @cont = split /\R/, qx($runner ps -a --no-trunc -f name='^fradrive.' --format='{{.State}} ::: {{.ID}} ::: {{.Names}}');
+my %cont = ();
+for(@cont) {
+  m#(.*) ::: (.*) ::: (.*)# || next;
+  $cont{$2} = {
+    state=>$1,
+    id=>$2,
+    name=>$3,
+    used=>0,
+  }
+}
 
 
 if(not -e $develop) {
@@ -50,6 +61,16 @@ for my $devStamp(@devs) {
 #  devdirInfo($devStamp, "$develop/$devStamp")
 #}
 
+for my $k(sort {
+  $cont{$a}{state} cmp $cont{$b}{state} ||
+  $cont{$a}{name} cmp $cont{$b}{name}
+} keys %cont) {
+  my $c = $cont{$k};
+  print "Fradrive container outside develop file: ($c->{state}) $c->{name} $c->{id}\n"
+}
+
+exit 0;
+
 sub devdirInfo {
   my ($name, $path) = @_;
   my @fns = filesFromDir($path, [qr((?:^\.))]);
@@ -78,6 +99,7 @@ sub checkContainerFile {
   }
   print "      $_=$h{$_}\n" for sort keys %h;
   my $id = $h{CONTAINER_ID};
+  $cont{$id}{used} = 1;
   if(not defined $id) {
     warn "$0: In containerfile '$fn': No CONTAINER_ID set\n";
     return