         (when (= 32 bits)
           (report-segment "Missing .vcproj files" missing-vcproj-files))
         (report-segment "Uncompiled device adapters" (missing-device-adapters bits))
+        (when (= 32 bits)
+          (report-segment "Missing device links" (missing-device-links)))
         (when (= 32 bits)
           (report-segment "Missing device pages" (missing-device-pages)))
         "\n\nIs installer download available on website?\n"

                                  (do-not-build)
                                  helper-vcprojs))))

(defn device-pages []
  (let [index-txt (slurp "http://valelab.ucsf.edu/~MM/MMwiki/index.php/Device%20Support")]
    (map second (re-seq #"a href=\"/~MM/MMwiki/index.php/(.*?)\"" index-txt))))

(defn missing-device-pages []
  (let [dll-names (get-dll-names 32)
        device-page-names (device-pages)]
    (sort (clojure.set/difference
            (clojure.set/union (set non-windows-device-adapters)
                               (missing-vcproj)
                               (set dll-names))
            (set device-page-names)
            (do-not-build)))))

(defn str-lines [sequence]
  (apply str (interpose "\n" sequence)))

                   (empty? javac-errs)
                   (empty? outdated-jars)
                   (empty? missing-vcproj-files)
                   (empty? missing-device-links)
                   installer-ok)
      (str
        "\n\nMICROMANAGER " bits "-bit "
