            (setq tag-string " <added>"))
           ((equal action 'deleted)
            (setq tag-string " <deleted>"))
+          ((equal action 'added-wc)
+           (svn-status-line-info->set-filemark line-info ?A)
+           (svn-status-line-info->set-localrev line-info 0))
+          ((equal action 'deleted-wc)
+           (svn-status-line-info->set-filemark line-info ?D))
           (t
-           (message "Unknown action '%s for %s" action (svn-status-line-info->filename line-info))))
+           (error "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)))))
+      (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)
+      (when tag-string
+        (insert tag-string))
+      (delete-char 1))))
 
 
 

    (set-buffer svn-status-buffer-name)
    (let ((st-info)
          (found)
          (action))
      (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))

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