##   2. This works:
	if ( $rkeys > $dbenv{DB_RMaxkeys} )
	{	my $killkeys = int($rkeys/2);
		foreach my $key ( keys %RCache )
		{	$killkeys--; if ( $killkeys < 0 ) { last; }
			delete $RCache{$key};
		}
	}