NotesName.Keyword bug for Abbreviated Names

This problem still exists in Notes 9

http://www-10.lotus.com/ldd/nd85forum.nsf/ShowMyTopicsAllFlatweb/ec3f399eca04b00685257b940025ffcb?OpenDocument http://www-10.lotus.com/ldd/nd85forum.nsf/ShowMyTopicsAllFlatweb/ec3f399eca04b00685257b940025ffcb?OpenDocument

It even existed way back in Notes 4.

Is it just me that thinks this is a bit sad?

Sub Click(Source As Button)
Dim session As New NotesSession
Dim nn1 As New NotesName(session.UserName)
Dim nn2 As New NotesName(nn1.Abbreviated)
Msgbox {The value in the line below is supposed to be “} & nn1.Keyword & {”
NotesName.Keyword = “} & nn2.Keyword & {”}, 0, {Test}
End Sub