diff --git a/byg/app/SiteGenerator.hs b/byg/app/SiteGenerator.hs
index e8157af..c67a287 100644
--- a/byg/app/SiteGenerator.hs
+++ b/byg/app/SiteGenerator.hs
@@ -30,6 +30,7 @@ handleRecipeDir recipesDir outputDir htmlTemplate indexName recipeSubDirs name =
   imageFilenames <-
     listDirectory dir
     & filterDepGenM (hasExtension (inject ["jpg"]))
+    & onToken sort
   htmlBodyImages <- forDepGenM imageFilenames $ \filename -> do
     path <- joinPaths dir filename
     path `copyTo` outputDir