diff --git a/Apps/Holonica/HlPerson.class.st b/Apps/Holonica/HlPerson.class.st
index 716a2db..a5011db 100644
--- a/Apps/Holonica/HlPerson.class.st
+++ b/Apps/Holonica/HlPerson.class.st
@@ -70,3 +70,9 @@ HlPerson >> givenName: anObject [
 
 	givenName := anObject
 ]
+
+{ #category : #accessing }
+HlPerson >> printOn: aStream [
+	super printOn: aStream.
+	aStream nextPutAll: '( ', self givenName, ' ', self familyName, ' )'
+]