diff --git a/src/c/multival.d b/src/c/multival.d
index bf6d5f64c..249797c41 100644
--- a/src/c/multival.d
+++ b/src/c/multival.d
@@ -34,10 +34,10 @@ cl_object
 cl_values_list(cl_object list)
 {
 	VALUES(0) = Cnil;
-	for (NVALUES=0; !ecl_endp(list); list=CDR(list)) {
+	for (NVALUES=0; !ecl_endp(list); list=ECL_CONS_CDR(list)) {
 		if (NVALUES == ECL_MULTIPLE_VALUES_LIMIT)
 			FEerror("Too many values in VALUES-LIST",0);
-		VALUES(NVALUES++) = CAR(list);
+		VALUES(NVALUES++) = ECL_CONS_CAR(list);
 	}
 	returnn(VALUES(0));
 }