diff --git a/Apps/Holonica/HlPerson.class.st b/Apps/Holonica/HlPerson.class.st
index a5011db..88aaf3f 100644
--- a/Apps/Holonica/HlPerson.class.st
+++ b/Apps/Holonica/HlPerson.class.st
@@ -35,6 +35,12 @@ HlPerson class >> fromListName: aString [
 		givenName: names contents trimmed
 ]
 
+{ #category : #accessing }
+HlPerson >> asSubtiddler: aString [
+	^ Tiddler new
+		title: self givenName, ' ', self familyName, '/', aString.
+]
+
 { #category : #accessing }
 HlPerson >> email [