--- trunk/IsisDB.pm	2004/12/29 16:01:41	9
+++ trunk/IsisDB.pm	2004/12/29 16:04:07	10
@@ -329,6 +329,9 @@
 	read($self->{'fileMST'},$buff,$fld_len);
 
 	for (my $i = 0 ; $i < $NVF ; $i++) {
+		# skip zero-sized fields
+		next if ($FieldLEN[$i] == 0);
+
 		push @{$self->{record}->{$FieldTAG[$i]}}, substr($buff,$FieldPOS[$i],$FieldLEN[$i]);
 	}
 	close(fileMST);