1 files changed, 1 insertions, 1 deletions

diff --git a/src/fileio.c b/src/fileio.c
index aa8ceabaaf6..0e76991cb7c 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3823,7 +3823,7 @@ DEFUN ("read-file-name-internal", Fread_file_name_internal, Sread_file_name_inte
       if (XTYPE (val) != Lisp_String)
         {
           if (changed)
-            return string;
+            return double_dollars (string);
           return val;
         }