B4J Question IDE Log extra line break with B4J Bridge

Sub shl_StdOut (Buffer() As Byte, Length As Int)
    Dim s As String = BytesToString(Buffer, 0, Length, "UTF8")
    s = s.Replace(Chr(13), "")   'remove CR
    Dim b() As Byte = s.GetBytes("UTF8")
    Streams.Write(AddCommandToBytes(STDOUT, b, b.Length))
End Sub

Sub shl_StdErr (Buffer() As Byte, Length As Int)
    Dim s As String = BytesToString(Buffer, 0, Length, "UTF8")
    s = s.Replace(Chr(13), "")
    Dim b() As Byte = s.GetBytes("UTF8")
    Streams.Write(AddCommandToBytes(STDERR, b, b.Length))
End Sub

Sub shl_StdOut (Buffer() As Byte, Length As Int)
    CleanCR(Buffer, Length)
    Streams.Write(AddCommandToBytes(STDOUT, Buffer, Length))
End Sub

Sub shl_StdErr (Buffer() As Byte, Length As Int)
    CleanCR(Buffer, Length)
    Streams.Write(AddCommandToBytes(STDERR, Buffer, Length))
End Sub

Private Sub CleanCR(Buffer() As Byte, Length As Int)
    If Windows Then
        For i = 1 To Length - 1
            If Buffer(i) = 10 And Buffer(i - 1) = 13 Then
                Buffer(i - 1) = 32
            End If
        Next
    End If
End Sub