diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 068e25de870..4a237696188 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-07  Eli Zaretskii  <eliz@elta.co.il>
+
+	* sort.el (sort-columns): Remove ms-dos from the list of systems
+	where the external `sort' command is not used.
+
 2004-03-07  Kim F. Storm  <storm@cua.dk>
 
 	* gdb-ui.el (gdb-overlay-arrow-position): Add defvar.
diff --git a/lisp/sort.el b/lisp/sort.el
index 76559f17288..d90369cabcd 100644
--- a/lisp/sort.el
+++ b/lisp/sort.el
@@ -480,7 +480,7 @@ Use \\[untabify] to convert tabs to spaces before sorting."
       (setq col-end (max col-beg1 col-end1))
       (if (search-backward "\t" beg1 t)
 	  (error "sort-columns does not work with tabs -- use M-x untabify"))
-      (if (not (or (memq system-type '(vax-vms windows-nt ms-dos))
+      (if (not (or (memq system-type '(vax-vms windows-nt))
 		   (let ((pos beg1) plist fontified)
 		     (catch 'found
 		       (while (< pos end1)