Small speedup to FIND-SLOT-CELL (perhaps 5% faster)