diff --git a/lispguide.xml b/lispguide.xml
index 456a23e..d4f3841 100644
--- a/lispguide.xml
+++ b/lispguide.xml
@@ -2087,7 +2087,7 @@ Robert Brown
(defmethod print-object ((p person) stream)
- (print-unprintable-object (p stream :type t :identity t)
+ (print-unreadable-object (p stream :type t :identity t)
(with-slots (first-name last-name) p
(safe-format stream "~a ~a" first-name last-name))))