Replace (caddr x) with (cadr (cdr x))