diff --git a/scripts/userlist.hy b/scripts/userlist.hy
index 79a83b5..f057092 100644
--- a/scripts/userlist.hy
+++ b/scripts/userlist.hy
@@ -26,9 +26,11 @@
                "(default :3)"
                ""))))
 
+(defn bounded-find [path] (find path "-maxdepth" "3"))
+
 (defn modify-time [username]
   (->> (.format "/home/{}/public_html" username)
-       find
+       bounded-find
        (map (fn [filename] (getmtime (.rstrip filename))))
        list
        max))