diff --git a/tekuti/projects.scm b/tekuti/projects.scm
index 5fe29c8..7f68eb6 100644
--- a/tekuti/projects.scm
+++ b/tekuti/projects.scm
@@ -43,10 +43,10 @@
 (define (project->row dir project)
   (let ((project-dir (string-append dir "/" project)))
     `(tr
-      (td ,(gitless project))
-      (td ,(project-description project-dir))
-      (td ,(git-last-update project-dir))
-      (td ""))))
+      (td (@ (class "span3")) ,(gitless project))
+      (td (@ (class "span6")) ,(project-description project-dir))
+      (td (@ (class "span2")) ,(git-last-update project-dir))
+      (td (@ (class "span1")) ""))))
 
 (define (project-list->table top-dir list lvl)
   (let ((head (car list))