Unit not returning to building?

globals
    constant integer uHARVEST_CORPSE = 'A009'
    constant integer uBLOOD_PIT = 'n00A'
    group BWRG = CreateGroup()
endglobals

function BloodExpr takes nothing returns boolean
    local unit u = GetFilterUnit()
    return GetUnitTypeId(u) == uBLOOD_PIT and GetWidgetLife(u) > .405 and GetOwningPlayer(u) == CALLBACK_PLAYER
endfunction

function BloodWormReturn takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local unit b
    local unit f
    local real best = 100000
    local real r
    local real dx
    local real dy
    local real x = GetUnitX(u)
    local real y = GetUnitY(u)
    
    call BJDebugMsg("rawr")
    call GroupClear(BWRG)
    set CALLBACK_PLAYER = GetOwningPlayer(u)
    call GroupEnumUnitsInRange(BWRG, 0, 0, 12800, Condition(function BloodExpr))
    loop
        set f = FirstOfGroup(BWRG)
        exitwhen(f == null)
        set dx = GetUnitX(f) - x
        set dy = GetUnitY(f) - y
        set r = dx*dx+dy+dy/10000
        if(best > r)then
            set best = r
            set b = f
        endif
    endloop
    
    call IssuePointOrder(u, "move", GetUnitX(b), GetUnitY(b))
endfunction