 (defun svn-status-sort-predicate (a b)
   "Return t if A should appear before B in the *svn-status* buffer.
 A and B must be line-info's"
-  (string-lessp (svn-status-line-info->full-path a)
-                (svn-status-line-info->full-path b)))
+  (string-lessp (concat (svn-status-line-info->full-path a) "/")
+                (concat (svn-status-line-info->full-path b) "/")))
 
 (defun svn-status-remove-control-M ()
   "Remove ^M at end of line in the whole buffer."

                 ((eq svn-process-cmd 'mv)
                  (svn-status-update)
                  (message "svn mv finished"))
                 ((eq svn-process-cmd 'cleanup)
                  ;;(svn-status-show-process-buffer-internal t)
                  (message "svn cleanup finished"))

;; DEL   - svn-status-unset-user-mark-backwards
;; * !   - svn-status-unset-all-usermarks
;; .     - svn-status-goto-root-or-return
;; f     - svn-status-find-file
;; o     - svn-status-find-file-other-window
;; I     - svn-status-parse-info
;; P l   - svn-status-property-list
;; P s   - svn-status-property-set
;; P d   - svn-status-property-delete
