diff --git a/src/bbstool.scm b/src/bbstool.scm
index 45105da..935f283 100644
--- a/src/bbstool.scm
+++ b/src/bbstool.scm
@@ -60,6 +60,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 (define -action- (make-parameter #f))
 (define -fname- (make-parameter #f))
 (define -run-tests?- (make-parameter #f))
+(define -web-dir- (make-parameter #f))
 
 ;; Arguments parsing
 (command-line
@@ -102,6 +103,10 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-repl () "Start repl with everything loaded"
 	(-needs-bank- #t)
 	(-action- 'repl))
+ (-genweb (dir) "Generate static web files"
+	  (-needs-bank- #t)
+	  (-web-dir- dir)
+	  (-action- 'genweb))
  )
 
 ;; Run tests
@@ -210,6 +215,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (print-members-fees-table MB))
   ((repl)
    (repl))
+  ((genweb)
+   (gen-web-static MB (-web-dir-)))
   (else
    (print "Nothing to do."))
   
diff --git a/src/web-static.scm b/src/web-static.scm
index a1756fb..e49aa96 100644
--- a/src/web-static.scm
+++ b/src/web-static.scm
@@ -65,7 +65,7 @@
        (lambda ()
 	 (let loop ((lines
 		     (get-process-output-lines
-		      (sprintf "git -C \"~A\" log \"~A\""
+		      (sprintf "git -C \"~A\" log -p -- \"~A\""
 			       (string-translate* (*members-directory*)
 						  '(("\"" "\\\"")))
 			       (member-file-name mr)