B4J Question serial crash in raspberry

'Non-UI application (console / server application)
#Region  Project Attributes
   #CommandLineArgs:
   #MergeLibraries: True
#End Region

Sub Process_Globals
   Private sp As Serial
   Private astream As AsyncStreamsText 
   Private toneteller=1 As Int
   Dim l As List
   Dim starttimer,waittimer As Timer
   Dim phonestring="" As String
   Private DataReceived="" As String
   Private waithrd=99 As Int
   Dim thrd=99 As Byte
   Dim js As JStringFunctions
   Public LAC="" As String
   Public CSQ="" As String
   Public smsconnected=False As Boolean
End Sub

Sub AppStart (Args() As String)
   smsStart
End Sub
Sub smsStart
   sp.Initialize("")
'   l.Initialize
'   js.Initialize
'   l=sp.listports
'   For i=0 To l.Size-1
'   Log(l.get(i))
'   Next
   Log("SerialPortSMS Init")
   Try
   sp.Open("/dev/ttyUSB1")
   sp.SetParams(9600,8,1,0)
   sp.RTS=True
   sp.DTR=True
'   astream.Initialize( Me ,"astream",sp.GetInputStream,sp.GetOutputStream )  
'   ''astream.Initialize(sp.GetInputStream,  sp.GetOutputStream, "Astream")
   Catch
     Log("commport bestaat niet")

     smsconnected=False
     Return
   End Try



   Log("setup done")
End Sub