diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 937c4dfdc69..97651c65390 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-04-14  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* vc.el (vc-status-update): Fix typo.
+
 2008-04-14  Tassilo Horn  <tassilo@member.fsf.org>
 
 	* doc-view.el (doc-view-mode-map): Bind C-a to image-bol and C-e
diff --git a/lisp/vc.el b/lisp/vc.el
index e946191a0e0..b54523fa48f 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -3030,7 +3030,7 @@ If NOINSERT, ignore elements on ENTRIES which are not in the ewoc."
           (cond
            ((string-lessp nodefile entryfile)
             (setq node (ewoc-next vc-status node)))
-           ((string-lessp nodefile entryfile)
+           ((string-lessp entryfile nodefile)
             (unless noinsert
               (ewoc-enter-before vc-status node
                                  (apply 'vc-status-create-fileinfo entry)))