                   (svn-status-update)
                   (message "svn mv finished"))
                  ((eq svn-process-cmd 'rm)
-                  (svn-status-update)
+                  (svn-status-update-with-command-list (svn-status-parse-ar-output))
                   (message "svn rm finished"))
                  ((eq svn-process-cmd 'cleanup)
                   (message "svn cleanup finished"))

                  (svn-status-update)
                  (message "svn update finished"))
                 ((eq svn-process-cmd 'add)
                  (svn-status-update)
                  (message "svn add finished"))
                 ((eq svn-process-cmd 'mkdir)
                  (svn-status-update)

              ;;(message "found %s, action: %S" (caar cmd-list) action)
              (svn-status-annotate-status-buffer-entry action (car st-info)))
          (message "did not find %s" (caar cmd-list)))
        (setq cmd-list (cdr cmd-list)))
      (if fname
          (progn
            (goto-char fname-pos)
            (svn-status-goto-file-name fname)
            (goto-char (+ column (point-at-bol))))
        (goto-char (+ (next-overlay-change (point-min)) svn-status-default-column))))))

(defun svn-status-annotate-status-buffer-entry (action line-info)
  (let ((tag-string))
