diff --git a/scripts/find-runtime-roots.pl.in b/scripts/find-runtime-roots.pl.in
index a53cefd4efb7e9999cc77b7922ee6ecbe18f056e..5c2d4bed9180c26f633e3e90181b123024b7bb6b 100755
--- a/scripts/find-runtime-roots.pl.in
+++ b/scripts/find-runtime-roots.pl.in
@@ -35,6 +35,13 @@ sub readProc {
             }
             close MAP;
         }
+
+        # Get all store paths that appear in the environment of this process.
+        eval {
+            my $env = Nix::Utils::readFile "$process/environ";
+            my @matches = $env =~ /\/nix\/store\/[0-9a-z]+[0-9a-zA-Z\+\-\._\?=]*/g;
+            print "$_\n" foreach @matches;
+        }
     }
 
     closedir DIR;