diff --git a/src/c/pathname.d b/src/c/pathname.d index 62acec2b8..b438f27f4 100644 --- a/src/c/pathname.d +++ b/src/c/pathname.d @@ -834,7 +834,7 @@ ecl_merge_pathnames(cl_object path, cl_object defaults, cl_object default_versio directory = path->pathname.directory; else if (!Null(defaults->pathname.directory)) directory = ecl_append(defaults->pathname.directory, - CDR(path->pathname.directory)); + CDR(path->pathname.directory)); else directory = path->pathname.directory; if (Null(name = path->pathname.name))