diff --git a/yesod-bin/Scaffolding/Scaffolder.hs b/yesod-bin/Scaffolding/Scaffolder.hs
index 67d054b5..ec2d1da2 100644
--- a/yesod-bin/Scaffolding/Scaffolder.hs
+++ b/yesod-bin/Scaffolding/Scaffolder.hs
@@ -92,7 +92,9 @@ scaffold isBare = do
 
     let sink = unpackTemplate
                 (receiveFS $ if isBare then "." else fromString project)
-                (T.replace "PROJECTNAME" (T.pack project))
+                ( T.replace "PROJECTNAME" (T.pack project)
+                . T.replace "PROJECTNAME_LOWER" (T.toLower $ T.pack project)
+                )
     case ebackend of
         Left req -> withManager $ \m -> do
             res <- http req m