Bug? B4J bug

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private lbl As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    MainForm.RootPane.AddNode(makelbl(lbl),0,0,100,100)
    lbl.Text="new text"
End Sub

Sub makelbl(bx As B4XView) As B4XView
    Dim l As Label
    l.Initialize("")
    bx=l
    l.Text="test"
    Return bx
End Sub

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private lbl As B4XView
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.Show
    Dim TmpLbl As Label
        TmpLbl.Initialize(Null)
    lbl = TmpLbl
    MainForm.RootPane.AddNode(makelbl(lbl),0,0,100,100)
    lbl.Text="new text"
End Sub

Sub makelbl(bx As B4XView) As B4XView
    Dim l As Label
    l.Initialize("")
    bx=l
    l.Text="test"
    Return bx
End Sub

Sub makelbl As B4XView
    Dim l As Label
    l.Initialize("")
    l.Text="test"
    Return l
End Sub

Dim bx As B4XView = makelbl

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Dim mp As Map
    
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    
    MainForm.Show
    test1(mp)
    Dim m2 As Map
    m2.Initialize
    m2.Put("test","one")
    mp.Put("m2",m2)
    Log(mp.Get("m2"))  'one
    test(mp)
    Log(mp.Get("m2"))  'two
End Sub

Sub test1(m As Map)
    m.Initialize
End Sub
Sub test(m As Map)
    Dim m2 As Map=m.Get("m2")
    m2.Put("test","two")
End Sub

Sub test1(m As Map)
    Dim dummyMap As Map
    dummyMap.Initialize
    m = dummyMap
End Sub

Sub test1(m As Map) As Map
    Dim dummyMap As Map
    dummyMap.Initialize
    m = dummyMap
    Return m
End Sub

test1(mp)

mp = test1(mp)

    Dim myMap As Map
    myMap.Initialize
    myMap.Put("one", "try to overwrite me!")
    test6(myMap)
    Log(myMap)

Sub test6(m As Map)
    m.Initialize
    m.Put("two","I'm the onle one!!!!")
    Dim dummyMap As Map
    dummyMap.Initialize
    dummyMap.Put("Three", "You expect me, but will never see me! Guess why")
    m = dummyMap
End Sub