 (defun svn-process-sentinel (process event)
   ;(princ (format "Process: %s had the event `%s'" process event)))
   ;(save-excursion
+  (let ((act-buf (current-buffer)))
     (set-buffer (process-buffer process))
     (setq svn-status-mode-line-process-status "")
     (svn-status-update-mode-line)

                ((eq svn-process-cmd 'propset)
                 (svn-status-update))
                ((eq svn-process-cmd 'propdel)
                 (svn-status-update))))
      ;;(message (format "SVN Error: :%s:" event))
      (svn-status-show-process-buffer-internal t)))

(defun svn-parse-status-result ()
  (setq svn-status-head-revision nil)

          (cond ((eq svn-process-cmd 'status)
                 ;;(message "svn status finished")
                 (svn-parse-status-result)
                 (set-buffer act-buf)
                 (svn-status-update-buffer))
                ((eq svn-process-cmd 'log)
                 (svn-status-show-process-buffer-internal t)
