(use srfi-1 extras)

(pp (xcons (list) 'lol))
(pp (xcons '() 'lol))

;; $ csc bug.scm && ./bug
;; (() . lol)
;; (lol)