   {:pre [(t/thing? thing)]}
   (let [versions (api/thing->prior-versions config thing)]
     (if (succeed? versions)
-      (-> (for [prior-thing (result versions)
-                :let        [v (t/thing->name (t/thing->version prior-thing))
-                             h (impl/thing->handle config :examples prior-thing)]
-                ex          (.listFiles h)
-                :when       (.isFile ex)]
-            (t/->Example thing, (.getPath ex)))
-          succeed)
+      (succeed
+       (for [prior-thing (result versions)
+             :let        [v (t/thing->name (t/thing->version prior-thing))
+                          h (impl/thing->handle config :examples prior-thing)]
+             ex          (.listFiles h)
+             :when       (.isFile ex)]
+         (t/->Example thing, (.getPath ex))))
 
       ;; versions is a Fail, pass it down
       versions)))

;;--------------------

(defmethod api/-read-note ::fs/Config [config thing]
  (let [handle (impl/thing->notes-handle config (t/thing->parent thing))]
    (if (.exists handle) ;; guard against missing files
      (-> handle slurp succeed)

  (if-not (t/versioned? thing)
    (let [versions (api/thing->prior-versions config thing)]
      (if (succeed? versions)
        (succeed
         (for [thing (result versions)
               :let  [v (t/thing->name (t/thing->version thing))
                      h (impl/thing->notes-handle config thing)]
               :when (.exists h)
               :when (.isFile h)]
           (t/->Note thing, (.getPath h))))

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