anchor.diff:  
   check_if_truncated() ->
       case get(last_tag) of
  -	{?ende,_} ->
  +	{{?ende,_},_} ->
   	    put(truncated,false),
   	    put(truncated_proc,false);
  -        {?literals,[]} ->
  +        {{?literals,[]},_} ->
               put(truncated,true),
               put(truncated_proc,false),
               %% Literals are truncated. Make sure we never
  
positive.code:             %% references literals will show markers for
              %% incomplete heaps, but will otherwise work.)
              delete_index(?literals, []);
  	TruncatedTag ->
  	    put(truncated,true),
  	    find_truncated_proc(TruncatedTag)
      end.
  
negative.code:     case get(truncated) of
  	true ->
  	    case get(last_tag) of
  		{Tag,_Pos} -> % Tag == {TagType,Id}
  		    true;
  		{{Tag,_Id},_Pos} ->
  		    true;
  		_LastTag ->
  		    truncated_earlier(Tag)
  