A common and simple way of appending two lists is as follows:
(define (append a b) (if (null? a) b (cons (car a) (append (cdr a) b))))