           (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-info (svn-status-make-dummy-dirs dir-set
+                                                          old-ui-information)))
       (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)
          (user-elide nil)
          (ui-status '(nil nil))     ; contains (user-mark user-elide)
          (revision-width svn-status-default-revision-width)

        (len-fname)
        (test)
        (len-test)
        (elided-list)
        (elide-mark))
    (while st-info
      (setq fname (svn-status-line-info->filename (car st-info)))
