Visible cursor is not painted when empty TextInput is aligned to the right

import Qt 4.7

Rectangle {
    width: 400; height: 300
    TextInput {
        cursorVisible: true
        horizontalAlignment: TextInput.AlignRight
        width: 200
        focus: true
        font.pixelSize: 20
        anchors.centerIn: parent
        Rectangle {
            color: Qt.rgba(1.0, 0.0, 0.0, 0.3)
            anchors.fill: parent
        }
    }
}