           r2 (first (rest revpairs))
           mf (matching-files r1 r2 item filt)]
       (println (str "Checking: r" r1 " vs r" r2))
-      (doseq [object mf] (svndiff r1 r2 object item))
+      (doseq [filename mf] (svndiff r1 r2 filename item))
       (diffrevpairs item filt (rest (rest revpairs))))))
 
 ;; Try to explain why this has failed.

  (println))

;; Return a string containing the xml-formatted svn log for the requested item.
;; Stop on copy to avoid following the history of a differently-named object.

(defn log [item]
  (:out (sh "svn" "log" shhh "--stop-on-copy" "--xml" item)))

    (concat (list (first (rest revlist)) (first revlist))
            (revpairs (rest revlist) item))))

;; WRITE NEW COMMENT HERE

(defn svndiff [r1 r2 filename item]
  (let [item (baseitem item)
        r (re-pattern (str "^.*/" filename "$"))
        p (if (uri? item)
            (if (re-matches r item) item (str item "/" filename))
            filename)
        v (vpaths r1 r2 p item)]
    (sh "svn" "diff" (first v) (second v))))

