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

           (setq tag-string " <added>"))
          ((equal action 'deleted)
           (setq tag-string " <deleted>"))
          (t
           (message "Unknown action '%s for %s" action (svn-status-line-info->filename line-info))))
    (when tag-string
      (svn-status-line-info->set-filemark line-info ? )
      (svn-status-line-info->set-propmark line-info ? )
      (let ((buffer-read-only nil))
        (delete-region (point-at-bol) (point-at-eol))
        (svn-insert-line-in-status-buffer line-info)
        (backward-char 1)
        (insert tag-string)
        (delete-char 1)))))




    (set-buffer svn-status-buffer-name)
    (let ((st-info)
          (found)
          (action)
          (fname (svn-status-line-info->filename (svn-status-get-line-information)))
          (fname-pos (point))
          (column (current-column)))
      (setq cmd-list (sort cmd-list '(lambda (item1 item2) (string-lessp (car item1) (car item2)))))
      (while cmd-list
        (unless st-info (setq st-info svn-status-info))
