       (while (looking-at
               "\\([AD]     \\)    \\(.*\\)\n")
         (let ((status (match-string 1))
-              (filename (match-string 2)))
+              (filename (svn-normalise-path (match-string 2))))
           (if (string= status "A     ")
               (setq status "A  +  "))
           (delete-region (match-beginning 0)

               (let* ((status (match-string 1))
                      (file-status (elt status 0))
                      (prop-status (elt status 1))
                      (filename (match-string 2)))
                 (delete-region (match-beginning 0)
                                (match-end 0))
                 (svn-insert-file

              ;; What format is this, really?
              "\\([AD]  \\).....  \\(.*\\)\n")
        (let ((status (concat (match-string 1) "   "))
              (filename (svn-normalise-path (match-string 2))))
          (delete-region (match-beginning 0)
                         (match-end 0))
          (svn-insert-file filename status))))))
