Fix bug in browse-git example.

[scratchy.git] / examples / browse-git.scm

diff --git a/examples/browse-git.scm b/examples/browse-git.scm
index a5d9e7f..f9cd019 100755 (executable)
--- a/examples/browse-git.scm
+++ b/examples/browse-git.scm
@@ -55,7 +55,8 @@
                 (list (if (eq? type 'tree) 1 0)
                       file
                       (conc "browse-git.scm|" type "|" repo "|" branch "|"
-                            file-path))))
+                            file-path
+                            (if (eq? type 'tree) "/" "")))))
             entries))))
 
   (define (serve-blob)