diff --git a/tekuti/projects.scm b/tekuti/projects.scm
index 0017d35..1296c01 100644
--- a/tekuti/projects.scm
+++ b/tekuti/projects.scm
@@ -50,9 +50,15 @@
         "never"
         relative-last-update)))
 
+(define (gitless name)
+  (let ((pos (string-contains name ".git")))
+    (if pos
+        (substring name 0 pos)
+        name)))
+
 (define (project->row dir project)
   `(tr
-    (td ,project)
+    (td ,(gitless project))
     (td ,(project-description project))
     (td ,(git-last-update project))
     (td "")))