This may be a bit faster

not sure which one is the faster in the scan rest (for or while, suspect for)

function IsItIn(PathToFind, TheTable)

	local IndexedKey, s, OldOrder, sCollate, FoundIt
	
	s = select(0)
	select (TheTable)
	OldOrder = order()
	sCollate = set('Collate')
	set Collate to 'Machine'
	
	IndexedKey = bintoc(val(sys(2007, PathToFind)))
	set Order to ThePath
	
	FoundIt = FALSE
	
	if( seek(IndexedKey) )
	
		scan rest for/while ( bintoc(val(sys(2007, ThePath))) == IndexedKey )
			if( ThePath == PathToFind )
				FoundIt = TRUE
				exit
			endif
		endscan
	endif
	
	set order to &OldOrder
	select (s)
	set Collate to (sCollate)
	
	return FoundIt  && and still on the record

endfunc
*--------------------------------------------------------------------------