diff --git a/src/ChangeLog b/src/ChangeLog
index 2df7b27d6..dcf164d1e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+Fri Apr 10 10:35:06 1998  Norbert Warmuth  <k3190@fh-sw.de>
+
+	* file.c (file_mask_dialog): When the shell patterns option was
+	off source_mask was freed twice.
+
 1998-04-10  Marc Ewing  <marc@redhat.com>
 
 	* panel.h: added up_b
diff --git a/src/file.c b/src/file.c
index 7f710b26d..fe33bdebf 100644
--- a/src/file.c
+++ b/src/file.c
@@ -2021,10 +2021,11 @@ ask_file_mask:
 	easy_patterns = 1;
 	source_mask = convert_pattern (source_mask, match_file, 1);
 	source_easy_patterns = easy_patterns;
-    }
+        error = re_compile_pattern (source_mask, strlen (source_mask), &rx);
+        free (source_mask);
+    } else
+        error = re_compile_pattern (source_mask, strlen (source_mask), &rx);
 
-    error = re_compile_pattern (source_mask, strlen (source_mask), &rx);
-    free (source_mask);
     if (error) {
 	message_3s (1, MSG_ERROR, _("Invalid source pattern `%s' \n %s "),
 		 orig_mask, error);