Bug? Numberformat error

    Dim I As Int=-1
    Log(NumberFormat(I,2,2))
    I=-100
    Log(NumberFormat(I,2,2))
    
    Dim D As Double=-1.5
    Log(NumberFormat(D,2,2))
    D=-100.5
    Log(NumberFormat(D,2,2))

0-1.00
0-100.00
0-1.50
0-100.50

B4RString* Common::NumberFormat(Double Number, byte MinimumIntegers, byte MaximumFractions) {
        PrintToMemory pm;
        B4RString* s = B4RString::PrintableToString(NULL);
        Long lng = 1;
        byte i;
        if (Number < 0) {
            pm.print("-");
            Number = -Number;
        }
        for (i = 0;i < MinimumIntegers - 1;i++) {
            lng *= 10;
            if (lng > Number) {
                MinimumIntegers = MinimumIntegers - i;
                while (MinimumIntegers > 1) {
                    pm.print(0);
                    MinimumIntegers--;
                }
            }
        }
        pm.print(Number, (Int)MaximumFractions);
        StackMemory::buffer[StackMemory::cp++] = 0;
        return s;
        
    }