# 
# patch "contrib/monotone.el"
#  from [ef5d228764e688e436312297e3d4da9e0a3fc199]
#    to [f7ef858f9723b8a7630139716b358ed39206ba6d]
# 
--- contrib/monotone.el
+++ contrib/monotone.el
@@ -234,13 +234,13 @@
     (error "Cant find top for %s" path))
   ;; work with full path names
   (setq path (expand-file-name path))
-  (block nil
+  (catch 'found
     (let ((prev-path nil))
       (while (not (equal path prev-path))
         (let ((mt-dir (concat path "MT")))
           ;;(message "Search: %s" mt-dir)
           (when (file-directory-p mt-dir)
-            (return path))
+            (throw 'found path))
           (setq prev-path path
                 path (monotone-file-parent-directory path)))))))
 ;;(monotone-find-MT-top "/disk/amelie1/harley/monotone-dev/contrib/monotone.el")