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

      (while (looking-at
              "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\)[ C]? \\([* ]\\) \\(........\\) \\(........\\) \\(............\\) \\([^ ].*\\)\n")
        (let ((status (match-string 1))
              (filename (match-string 6)))
          (delete-region (match-beginning 0)
                         (match-end 0))
	  (when (or (not svn-file-filter)

      (while (cond ((looking-at
                     "\\([ ACDGIMRX?!~][ CM][ L][ +][ S][ KOTB]\\)[ C]? \\([^ ].*\\)\n")
                    (let ((status (match-string 1))
                          (filename (svn-normalise-path (match-string 2))))
                      (delete-region (match-beginning 0)
                                     (match-end 0))
                      (svn-insert-file filename status))
