     -1))
 
 
-(defun svn-status-make-dummy-dirs (dir-list)
+(defun svn-status-make-dummy-dirs (dir-list old-ui-information)
   (append (mapcar (lambda (dir)
-                    (list ui-status 32 nil dir -1 -1 "?" nil nil nil nil))
+                    (list (or (gethash dir old-ui-information) (list nil nil))
+                          32 nil dir -1 -1 "?" nil nil nil nil))
                   dir-list)
           svn-status-info))
 

          (setq author-width (max author-width (length author)))))
        (forward-line 1))
      (unless svn-status-verbose
        (setq svn-status-info (svn-status-make-dummy-dirs dir-set)))
      (setq svn-status-default-column
            (+ 6 revision-width revision-width author-width
               (if svn-status-short-mod-flag-p 3 0)))

          (last-change-rev)
          (author)
          (path)
          (dir)
          (user-elide nil)
          (ui-status '(nil nil))     ; contains (user-mark user-elide)
          (revision-width svn-status-default-revision-width)
