X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/3bcb5ef8fc34c3c453ebd968eb80577dc60e71de..dc8279c2b87289bc6bc1cc4a04a719615c9d675d:/uip/repl.c

diff --git a/uip/repl.c b/uip/repl.c
index f97210c2..7f0c7bac 100644
--- a/uip/repl.c
+++ b/uip/repl.c
@@ -452,14 +452,16 @@ try_it_again:
     fclose (in);
 
     {
-	char *filename = concat (mp->foldpath, "/", msg, NULL);
+        char *filename = file ? file : concat (mp->foldpath, "/", msg, NULL);
 
         for (n = 0; n < svector_size (convert_types); ++n) {
             add_convert_header (svector_at (convert_types, n),
                                 svector_at (convert_args, n),
                                 filename, drft);
         }
-	free (filename);
+        if (! file) {
+            free (filename);
+        }
     }
 
     if (nwhat)