diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs
index 0621490f..7e81b5e7 100755
--- a/etc/diskspace/remove-old-stack-work-libs.hs
+++ b/etc/diskspace/remove-old-stack-work-libs.hs
@@ -10,7 +10,7 @@ import Data.List
 import System.Directory
 
 main = do
-  files <- listDirectory "."
+  files <- sort <$> listDirectory "."
   (libdirs,dynlibs) <- partitionM doesDirectoryExist files
   let pkglibdirs = groupBy samePkgLibDir libdirs
       pkgdynlibs = groupBy samePkgDynLib dynlibs