According to the book, (get-messages) returns a list (), but for me, it returns a vector [].
(get-messages)
()
[]