gcl.git - GNU Common Lisp

diff --git a/gcl/o/mingfile.c b/gcl/o/mingfile.c
index ba7f8c857..2d1f698ef 100644
--- a/gcl/o/mingfile.c
+++ b/gcl/o/mingfile.c

@@ -10,7 +10,7 @@ void Ldirectory ( void )

object path;

check_arg(1);

check_type_or_pathname_string_symbol_stream(&vs_base[0]);

- path = vs_base[0] = truename(coerce_to_pathname(vs_base[0]));

+ path = vs_base[0] = coerce_to_pathname(vs_base[0]);

if (vs_base[0]->pn.pn_name==Cnil && vs_base[0]->pn.pn_type==Cnil) {

coerce_to_filename(vs_base[0], filename);