#	while  ( ($key ne $self->{KEYS}->[ $i ]) and
#		 ($i < $self->{COUNT}) ) {
	while  ( ($i < $self->{COUNT}) and
		 ($key ne $self->{KEYS}->[ $i ])  ) {