sub body {
    my $self = shift;
    
    if ( exists $self->{'uncompressed'} ) {
	return $self->{'uncompressed'};
    }

    unless ( exists $self->{'compressed'} ) {
	confess "Record missing body!";
    }

    my $expt_len;
    ## START Inline
    # Inlined the ->expected_length method call here.
    if ( exists $self->{'expected_length'} ) {
	$expt_len = $self->{'expected_length'};
    } else {
	if( ${$self->{'header_text'}} =~ /L=(?>[^;]+);/ ) {
	    $expt_len = substr
		( ${$self->{'header_text'}},
		  $-[0] + 2,
		  $+[0] - $-[0] - 3 );
	} else {
	    $expt_len = undef;
	}
    }
    ## END Inline

    $self->{'uncompressed'} = 
	$self->{'uncompress_function'}( $self->{'compressed'},
					$expt_len );
    
    my $retr_len = length ${$self->{'uncompressed'}};
    unless ( $expt_len == $retr_len ) {
	confess "Uncompressed record length $retr_len did not match expected "
	    . "length $expt_len for record $self->{record_number}.";
    }
    
    return $self->{'uncompressed'};
}