         versions        (api/thing->prior-versions config thing)]
     (if (succeed? versions)
       (-> (for [thing (result versions)
-               :let  [v (:name (thing->version thing))
-                      h (thing->related-handle config thing)]
-               :when (.exists h)
-               :when (.isFile h)
-               line  (line-seq (io/reader h))
-               :let  [sym (read-string line)]]
-           (-> current-version
-              (->Ns  (namespace sym))
-              (->Def (name sym))))
-         succeed)
+                :let  [v (:name (thing->version thing))
+                       h (thing->related-handle config thing)]
+                :when (.exists h)
+                :when (.isFile h)
+                line  (line-seq (io/reader h))
+                :let  [sym (read-string line)]]
+            (-> current-version
+                (->Ns  (namespace sym))
+                (->Def (name sym))))
+          succeed)
 
       ;; versions is a Fail, pass it down
       versions)))


;; Read things
;;--------------------
(defmethod api/read-notes :filesystem [config thing]
  (let [thing    (ensure-thing thing)
        versions (api/thing->prior-versions config thing)]
    (if (succeed? versions)


      ;; versions is a Fail, pass it down
      versions)))

(defmethod api/read-notes :filesystem [config thing]
  (if (#{:group :artifact} (:type thing))
    (-read-group-notes config thing)
    (-read-general-notes config thing)))

(defmethod api/read-examples :filesystem [config thing]
  (let [thing    (ensure-thing thing)
