gcl.git - GNU Common Lisp

diff --git a/gcl/o/list.d b/gcl/o/list.d
index e38a8e6fd..9872f9dae 100755
--- a/gcl/o/list.d
+++ b/gcl/o/list.d

@@ -999,7 +999,7 @@ Lreconc() {

check_arg(2);

y = vs_pop;

- for (x = vs_base[0]; !endp(x);) {

+ for (x = vs_base[0]; !endp_prop(x);) {

z = x;

x = x->c.c_cdr;

z->c.c_cdr = y;