--- trunk/lib/WebPAC/Input.pm	2007/01/30 18:23:53	792
+++ trunk/lib/WebPAC/Input.pm	2007/02/04 12:19:51	793
@@ -16,11 +16,11 @@
 
 =head1 VERSION
 
-Version 0.16
+Version 0.17
 
 =cut
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 =head1 SYNOPSIS
 
@@ -469,10 +469,12 @@
 
 sub seek {
 	my $self = shift;
-	my $pos = shift || return;
+	my $pos = shift;
 
 	my $log = $self->_get_logger();
 
+	$log->confess("called without pos") unless defined($pos);
+
 	if ($pos < 1) {
 		$log->warn("seek before first record");
 		$pos = 1;