diff --git a/src/ChangeLog b/src/ChangeLog
index 6b923ffab..692dc6053 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2001-01-27  Pavel Roskin  <proski@gnu.org>
+
+	* dir.c: Respect HAVE_STRCOLL. Added a comment about strcoll().
+
 2001-01-26  Pablo Saratxaga <pablo@mandrakesoft.com>
 
 	* file.c: moved a comment one line down so it becomes visible on the
diff --git a/src/dir.c b/src/dir.c
index 391a65c2d..998854d9f 100644
--- a/src/dir.c
+++ b/src/dir.c
@@ -76,7 +76,17 @@ sort_orders_t sort_orders [SORT_TYPES_TOTAL] = {
     { N_("&Group"),       sort_group }
 };
 
+/*
+ * FIXME: strcoll() is not case sensitive in some locales, including en_US.
+ * The user gets a "choice" between two case insensitive sorts.
+ * Ideally, the user should be able to select between all three functions -
+ * strcoll() (if available), strcmp() and g_strcasecmp().
+ */
+#ifdef HAVE_STRCOLL
 #define string_sortcomp(a,b) (case_sensitive ? strcoll (a,b) : g_strcasecmp (a,b))
+#else
+#define string_sortcomp(a,b) (case_sensitive ? strcmp (a,b) : g_strcasecmp (a,b))
+#endif
 
 int
 unsorted (const file_entry *a, const file_entry *b)