Bug? [RESOLVED] OOM websockets

*** Service (svc_wsh_login) Create ***
10/15/2026 15:17:40.454 - ATLAS CM - svc_wsh_login::Service_Create()
*** Service (svc_wsh_login) Create completed ***
*** Service (svc_wsh_login) Started ***
** Service (svc_wsh_login) Start **
10/15/2026 15:17:40.461 - ATLAS CM - svc_wsh_login::Service_Start::Connecting to wss://isledemo.cm.raw.aspectlink.com:443/login
10/15/2026 15:17:40.468 - ATLAS CM - WebSocketHandler::Connect to wss://isledemo.cm.raw.aspectlink.com:443/login
*** Service (svc_wsh_login) Started completed ***
java.lang.OutOfMemoryError: Failed to allocate a 16 byte allocation with 0 free bytes and 0B until OOM, target footprint 134220848, growth limit 134217728
    at android.os.ThreadLocalWorkSource.setUid(ThreadLocalWorkSource.java:68)
    at android.os.Looper.loop(Looper.java:212)
    at android.app.ActivityThread.main(ActivityThread.java:7386)
    at java.lang.reflect.Method.invoke(Native Method)
    at com.android.internal.os.RuntimeInit$MethodAndArgsCaller.run(RuntimeInit.java:492)
    at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:980)
java.lang.OutOfMemoryError: OutOfMemoryError thrown while trying to throw an exception; no stack trace available

Sub send_event()
            
    Dim data As Map
    
    Dim data As Map
    data.Initialize
    data.Put("imei",Starter.appset.imei)
    data.Put("report",Starter.appset.imei)
    ws.SendEventToServer("Status_Report_AES", data)
    
    StopService(Me) <- This is for checking the OOM error
    Return
    
    Try
                
        Dim ser As B4XSerializator
        sEvent = clsSE.get_cached_event
        If sEvent.IsInitialized Then
            ser.ConvertObjectToBytesAsync(sEvent, "ser")
            Wait For (ser) ser_ObjectToBytes (Success As Boolean, Bytes() As Byte)
            If Success Then
                ' // 2021.06.01 - AES - encrypt data with host address
                Dim c As B4XCipher, b() As Byte
                b = c.Encrypt(Bytes,Starter.appset.sm.dns)
        
                Dim ecb64 As String = su.EncodeBase64(b)
                Dim imei As String = Starter.appset.imei
                Dim data As Map
                data.Initialize
                data.Put("imei",imei)
                data.Put("report",ecb64)
                ws.SendEventToServer("Status_Report_AES", data)                
            Else
                mod_functions.writelog("svc_status_event::ser_ObjectToBytes() FAILED")
            End If
        Else
            mod_functions.writelog("svc_status_event::send_event() finished")
            StopService(Me)
        End If
    Catch
        mod_functions.writelog("svc_status_event::send_event() error - " & LastException.Message)
        StopService(Me)
    End Try
    
End Sub