   "Save all buffers visiting a file in TREE.
 If TREE is not given, try `svn-status-base-dir' as TREE."
   (interactive)
+  ;; (message "svn-status-save-some-buffers: tree1: %s" tree)
   (let ((ok t)
         (tree (or (svn-status-base-dir)
                   tree)))
+    ;; (message "svn-status-save-some-buffers: tree2: %s" tree)
     (unless tree
       (error "Not in a svn project tree"))
     (dolist (buffer (buffer-list))

             (dot-svn-dir (concat base-dir (svn-wc-adm-dir-name)))
             (in-tree (and repository-root (file-exists-p dot-svn-dir)))
             (dir-below (expand-file-name base-dir)))
        (if (and (<= (car svn-client-version) 1) (< (cadr svn-client-version) 3))
            (setq base-dir (svn-status-base-dir-for-ancient-svn-client start-dir)) ;; svn version < 1.3
          (while (when (and dir-below (file-exists-p dot-svn-dir))

          (let ((file (buffer-file-name)))
            (when file
              (let ((root (svn-status-base-dir (file-name-directory file))))
                ;; (message "svn-status-save-some-buffers: file: %s, root: %s" file root)
                (when (and root
                           (string= root tree)
                           ;; buffer is modified and in the tree TREE.
