diff --git a/resources/public/content/_side-bar.md b/resources/public/content/_side-bar.md
index 321efc1..d3f2a83 100644
--- a/resources/public/content/_side-bar.md
+++ b/resources/public/content/_side-bar.md
@@ -1,3 +1,3 @@
 This is the side bar. There's nothing in it yet. You could [edit](edit?page=_side-bar) it to provide internal navigation or branding.
 
-If you don't like it on the left, float it to the right (or do something entirely different) by editing the [stylesheet](/edit-css?page=stylesheet).
+If you don't like it on the left, float it to the right (or do something entirely different) by editing the [stylesheet](edit-css?page=stylesheet).
diff --git a/resources/public/content/stylesheet.css b/resources/public/content/stylesheet.css
index a9d64f9..b31f747 100644
--- a/resources/public/content/stylesheet.css
+++ b/resources/public/content/stylesheet.css
@@ -74,6 +74,7 @@ form {
 header {
   margin-top: 0;
   width:100%;
+  max-width: 100%;
   background-color: gray;
   color: white;
 }
diff --git a/resources/templates/base.html b/resources/templates/base.html
index c6c5f56..38a565d 100644
--- a/resources/templates/base.html
+++ b/resources/templates/base.html
@@ -79,7 +79,7 @@
          <div>
            <img height="16" width="16" alt="one wiki to rule them all" src="img/smeagol.png"/>One Wiki to rule them all ||
            Smeagol wiki engine {{version}} ||
-           <img height="16" width="16" alt="The Web Engineering Factory &amp; Toolworks" src="http://www.weft.scot/images/weft.logo.64.png"> Developed by <a href="http://www.weft.scot/">WEFT</a>
+           <img height="16" width="16" alt="The Web Engineering Factory &amp; Toolworks" src="https://www.weft.scot/images/weft.logo.64.png"> Developed by <a href="http://www.weft.scot/">WEFT</a>
          </div>
          <div>
            Built with <a href="http://www.luminusweb.net/">LuminusWeb</a> ||
diff --git a/src/smeagol/history.clj b/src/smeagol/history.clj
index 134701d..ceff181 100644
--- a/src/smeagol/history.clj
+++ b/src/smeagol/history.clj
@@ -49,9 +49,10 @@
     log-entry))
 
 
-(defn find-history [^String git-directory-path ^String file-path]
+(defn find-history
   "Return the log entries in the repository at this `git-directory-path`
    which refer to changes to the file at this `file-path`."
+  [^String git-directory-path ^String file-path]
   (let [repository (git/load-repo git-directory-path)]
     (filter
       #(entry-contains % file-path)