B4J Question jWebSocket v2: MessageTooLargeException: Text message too large

Sub ws_Connected
    Dim maxTextSize As Long = 100000
    Dim jo As JavaObject = ws
    jo = jo.GetFieldJO("session").RunMethod("getPolicy", Null)
    jo.RunMethod("setMaxBinaryMessageBufferSize", Array(maxTextSize))
    jo.RunMethod("setMaxBinaryMessageSize", Array(maxTextSize))
    jo.RunMethod("setMaxTextMessageBufferSize", Array(maxTextSize))
    jo.RunMethod("setMaxTextMessageSize", Array(maxTextSize))
End Sub

ws.Initialize("ws")
Dim client As JavaObject = ws.As(JavaObject).GetField("wsc")
wsc.RunMethod("setMaxTextMessageSize", Array((1000000).As(Long))