diff --git a/scaffold.hs b/scaffold.hs
index c89098dd..1bf4b627 100644
--- a/scaffold.hs
+++ b/scaffold.hs
@@ -53,7 +53,7 @@ main = do
     putStr $(codegen "site-arg")
     hFlush stdout
     let isUpperAZ c = 'A' <= c && c <= 'Z'
-    sitearg <- prompt $ \s -> not (null s) && all validPN s && isUpperAZ (head s)
+    sitearg <- prompt $ \s -> not (null s) && all validPN s && isUpperAZ (head s) && s /= "Main"
 
     putStr $(codegen "database")
     hFlush stdout