 (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."

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

    ["svn mv..." svn-status-mv t]
    ["Up Directory" svn-status-examine-parent t]
    ["Elide Directory" svn-status-toggle-elide t]
    ["svn revert" svn-status-revert t]
    ["svn cleanup" svn-status-cleanup t]
    ["Show Process Buffer" svn-status-show-process-buffer t]
    ("Property"
