B4J Question safari session variables in b4j v4

Sub Class_Globals
End Sub

Public Sub Initialize

End Sub

Sub Handle(req As ServletRequest, resp As ServletResponse)
   Dim i As Int = req.GetSession.GetAttribute2("i", 0)
   req.GetSession.SetAttribute("i", i + 1)
     resp.Write(i)
End Sub

WC.LocalStorage_SetItem( "TipoUtente", "paolo")

 WC.LocalStorage_GetItem( "TipoUtente","null").Value

Sub LocalStorage_SetItem(Key As String, Value As Object)
    mWS.Eval("$.jStorage.set(arguments[0], arguments[1]);", Array As Object(Key, Value))
End Sub

Sub LocalStorage_GetItem(Key As String, Default As Object) As Future
    Return mWS.EvalWithResult("return $.jStorage.get(arguments[0], arguments[1]);", Array As Object(Key, Default))
End Sub

srvr.AddFilter("/b4j_ws.js", "SessionCreator", False)

'Return True to allow the request to proceed.
Public Sub Filter(req As ServletRequest, resp As ServletResponse) As Boolean
   req.GetSession 'a new session will be created if a session doesn't exist.
   Return True
End Sub

' start the server
    srvr.Initialize(srvrName)
    srvr.AddFilter("/js/b4j_ws.js", "ABMSessionCreator", False) ' <----- Add this line
    srvr.AddWebSocket("/ws/" & AppName, "ABMApplication")
...

'Filter class
Sub Class_Globals
  
End Sub

Public Sub Initialize
  
End Sub

'Return True to allow the request to proceed.
Public Sub Filter(req As ServletRequest, resp As ServletResponse) As Boolean  
    req.GetSession 'a new session will be created if a session doesn't exist.
    Return True
End Sub