diff --git a/src/c/file.d b/src/c/file.d
index f17c133e0..748a8a130 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -3075,7 +3075,7 @@ parse_external_format(cl_object stream, cl_object format, int flags)
     return (flags & ~ECL_STREAM_FORMAT) | ECL_STREAM_USER_FORMAT;
   }
   if (ECL_SYMBOLP(format)) {
-    format = _ecl_funcall2(@'ext::make-encoding', mapping);
+    format = _ecl_funcall2(@'ext::make-encoding', format);
     if (ECL_SYMBOLP(format))
       goto PARSE_SYMBOLS;
     stream->stream.format_table = format;
diff --git a/src/c/symbols_list2.h b/src/c/symbols_list2.h
index 891ee10c3..e2830eba8 100644
--- a/src/c/symbols_list2.h
+++ b/src/c/symbols_list2.h
@@ -1893,7 +1893,7 @@ cl_symbols[] = {
 {KEY_ "UCS-4LE",NULL},
 
 {EXT_ "LOAD-ENCODING","ECL_NAME(si_load_encoding)"},
-{EXT_ "MAKE-ENCODING",NULL},
+{EXT_ "MAKE-ENCODING","ECL_NAME(si_load_encoding)"},
 {EXT_ "ALL-ENCODINGS",NULL},
 
 {KEY_ "US-ASCII",NULL},