In the function fetch-all, the uninitialized symbol 'all continues to collect results after multiple queries, stacking them subsequently.
To fix, change (define (fetch-all) to (define (fetch-all , all):
(dotimes (x (num-rows)) (push (fetch-row) all))
(if all (reverse all) '()))