Free Shadow Bank?

I've never had any probs with his sys, so can only answer generally...as far as banks go. Create a wrapper class.

i.e,

type bank
   field real
end type

function NewBank(Size)
    out.bank =new bank
    out\real=createBank(size)
    return out\real
end function

function countBank()
   for b.bank =each bank
       bc=bc+1
   next
   return bc
end function

function getBank(Index)
  for out.bank =each bank
     index=index-1
     if index=0 return out\real
  next
end function

function DeleteBank(bank)
   for b.bank =each bank
       if b\real=bank 
          freeBank bank
          delete b
          return
       endif
   next
   runtimeerror "bank does not exist"
end function

(cracks fingers)

and you can count through them, etc. You pretty much have to write wrapper 'classes' for anything b3d does..