diff --git a/src/ChangeLog b/src/ChangeLog
index 65731edde..9bb1d5aee 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,7 +1,11 @@
+2002-05-15  Andrew V. Samoilov  <kai@cmail.ru>
+
+	* view.c (do_view_init): Close fd if it is unused.
+
 2002-05-14  Andrew V. Samoilov  <kai@cmail.ru>
 
 	* Makefile.am (VFSLIB): Add ../vfs/samba/libsamba.a
-	if USE_WITH_SAMBA is true.
+	if USE_SAMBA_FS is true.
 
 2002-05-07  Pavel Roskin  <proski@gnu.org>
 
diff --git a/src/view.c b/src/view.c
index dd960a161..d845205b7 100644
--- a/src/view.c
+++ b/src/view.c
@@ -569,9 +569,11 @@ do_view_init (WView *view, char *_command, const char *_file, int start_line)
 	}
     }
 
-    if (_command && (view->viewer_magic_flag || _file[0] == '\0'))
+    if (_command && (view->viewer_magic_flag || _file[0] == '\0')) {
 	error = init_growing_view (view, _command, view->filename);
-    else
+	if (fd != -1)
+	    mc_close (fd);
+    } else
 	error = load_view_file (view, fd);
 
 finish: