diff --git a/barley.cabal b/barley.cabal
--- a/barley.cabal
+++ b/barley.cabal
@@ -1,5 +1,5 @@
 Name:                barley
-Version:             0.3
+Version:             0.3.0.1
 License:             OtherLicense
 License-file:        LICENSE
 Author:              Johan Tibell, Mark Lentczner
diff --git a/seed/Index.hs b/seed/Index.hs
--- a/seed/Index.hs
+++ b/seed/Index.hs
@@ -66,7 +66,7 @@
       , toHtml "Be sure to read all the comments in the code you are about to see. \
                \This is where the instructions will be."
       , toHtml "Be brave."
-      , toHtml "Now go to " +++ anchor ! [href "source?file=FirstPage.hs"] << "FirstPage.hs"
+      , toHtml "Now go to " +++ anchor ! [href "Source?file=FirstPage.hs"] << "FirstPage.hs"
       , toHtml "Come back here when you're done."
       ]
   , p << "Congratulations! You're writing Haskell!"
@@ -82,7 +82,7 @@
           \the page that will let you switch back and forth between editing the code \
           \and viewing the page that that code renders."
   , p << ("Start here: " 
-          +++ anchor ! [href "source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")
+          +++ anchor ! [href "Source?file=Chapter1/Step_1_1.hs&preview=1"] << "Chapter 1, Step 1")
   ])
   
 modMessage :: Html
diff --git a/seed/lib/DevUtils.hs b/seed/lib/DevUtils.hs
--- a/seed/lib/DevUtils.hs
+++ b/seed/lib/DevUtils.hs
@@ -211,7 +211,7 @@
   where
     build n = anchor ! [href src, theclass "op-edit", title ("Edit the " ++ n)]
                 << thespan << "Edit"
-    src = "source?file=" ++ srcPath si
+    src = "Source?file=" ++ srcPath si
     ee SCPage = Just "page"
     ee SCScript = Just "script"
     ee SCText = Just "text"
diff --git a/seed/lib/Tutorial.hs b/seed/lib/Tutorial.hs
--- a/seed/lib/Tutorial.hs
+++ b/seed/lib/Tutorial.hs
@@ -34,7 +34,7 @@
    sh = show $ stepSt s
 
 stepHref :: Step -> String
-stepHref s = "source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)
+stepHref s = "Source?file=" ++ stepUrl s ++ ".hs" ++ p (stepType s)
   where
     p Code = ""
     p Slides = "&preview=1"
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -163,7 +163,7 @@
             serveTemplateIfExists $ fullpath <.> "hs"
   where
     serveIndex :: FilePath -> Snap ()
-    serveIndex fullpath = serveTemplateIfExists $ fullpath </> "index.hs"
+    serveIndex fullpath = serveTemplateIfExists $ fullpath </> "Index.hs"
     serveTemplateIfExists :: FilePath -> Snap ()
     serveTemplateIfExists tmplpath = do
         routeWhenIO (doesFileExist tmplpath) $ serveTemplate tmplpath