X6 Changecase problem?

[knowbodynow]

If I run the following code with CorelDraw X6 (no service packs) then the changecase fails - it deletes the word. Is this a known bug? Or a problem with the code? Thanks.

Sub TestChangeCase()

    Dim s As Shape
    Dim tr1 As TextRange, tr2 As TextRange, tr3 As TextRange
    Dim tr4 As TextRange
    
    Set s = ActiveLayer.CreateArtisticText(2, 3, "Word1 Word2 Word3")
    Set tr1 = s.text.Story.Words(1)
    Set tr2 = s.text.Story.Words(2)
    Set tr3 = s.text.Story.Words(3)
    
    tr1.ChangeCase cdrTextUpperCase

End Sub

[shelbym]

The code works fine in X6 16.4.1.1281 so I am going to guess it is a bug in that version.

-Shelby