diff --git a/src/ChangeLog b/src/ChangeLog
index af00875a5..cf71b09bd 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jun  5 23:34:20 1998  Timur I. Bakeyev <timur@comtat.kazan.ru>
+	
+	* screen.c (file_entry_color): take care about BSD core dumps
+	which have names program.core instead of core
+
 Mon Jun  1 15:41:20 1998  Norbert Warmuth  <k3190@fh-sw.de>
 
 	* main.c (translate_url_to_new_syntax): translate the common
diff --git a/src/screen.c b/src/screen.c
index fa8150990..c5351681c 100644
--- a/src/screen.c
+++ b/src/screen.c
@@ -209,7 +209,7 @@ file_entry_color (file_entry *fe)
             return (SPECIAL_COLOR);
         else if (is_exe (fe->buf.st_mode))
             return (EXECUTABLE_COLOR);
-	else if (fe->fname && (strcmp (fe->fname, "core") == 0))
+        else if (fe->fname && (!strcmp (fe->fname, "core") || !strcmp (extension(fe->fname), "core")))
 	    return (CORE_COLOR);
     }
     return (NORMAL_COLOR);