diff --git a/TODO.md b/TODO.md
index aa2d6cb..d929251 100644
--- a/TODO.md
+++ b/TODO.md
@@ -17,7 +17,6 @@ you should check the existence of repos/github repos/urls/etc via XHR
 
 you should say how many packages there are in response to a search
 
-the build status "problems" button should be a link to the build status
 
 ## Design possibilities
 
diff --git a/src/main.rkt b/src/main.rkt
index 54bc32d..5e529d2 100644
--- a/src/main.rkt
+++ b/src/main.rkt
@@ -495,12 +495,13 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(define (build-status str label-type glyphicon)
+(define (build-status buildhost-url str label-type glyphicon)
   `(p ((class "build-status"))
     "Build status: "
-    (span ((class ,(format "label label-~a" label-type)))
-          (span ((class ,(format "glyphicon glyphicon-~a" glyphicon))))
-          " " ,str)))
+    ,(buildhost-link buildhost-url
+                     `(span ((class ,(format "label label-~a" label-type)))
+                       (span ((class ,(format "glyphicon glyphicon-~a" glyphicon))))
+                       " " ,str))))
 
 (define (package-page request package-name-str)
   (authentication-wrap
@@ -520,12 +521,15 @@
                              (p ,(@ pkg description))
                              ,(cond
                                [(@ pkg build failure-log)
-                                (build-status "failed" "danger" "fire")]
+                                (build-status (@ pkg build failure-log)
+                                              "failed" "danger" "fire")]
                                [(and (@ pkg build success-log)
                                      (@ pkg build dep-failure-log))
-                                (build-status "problems" "warning" "question-sign")]
+                                (build-status (@ pkg build dep-failure-log)
+                                              "problems" "warning" "question-sign")]
                                [(@ pkg build success-log)
-                                (build-status "ok" "success" "ok")]
+                                (build-status (@ pkg build success-log)
+                                              "ok" "success" "ok")]
                                [else
                                 ""])
                              (div ,@(let ((docs (or (@ pkg build docs) '())))
diff --git a/static/style.css b/static/style.css
index 7092db4..8d76fe3 100644
--- a/static/style.css
+++ b/static/style.css
@@ -84,6 +84,8 @@ input#new_version {
     font-size: 120%;
 }
 
+.jumbotron .build-status a,
 .jumbotron .build-status {
     font-size: 100%;
+    text-decoration: none;
 }