separate (Tracker.Manipulate_Data.Group_Data_Fixes)
procedure Update_Original is
    --------------------------------------------------------------------------------
    --|
    --|  NAME:  UPDATE_ORIGINAL
    --|
    --|  OVERVIEW:
    --|    This procedure walks through the element data and for each element
    --|    sets the original size estimate equal to the current size estimate.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others   an error message is printed and execution continues
    --|
    --|  HISTORY:
    --|    written by   Bonnie Burkhardt   March 1985
    --------------------------------------------------------------------------------
    use El_List_Pkg;

    El_Ptr : Element_Pointer;
    End_List : Boolean := False;

begin
    Start_Walk (El_List);

    loop
        Walk (El_List, El_Ptr, End_List);
        exit when End_List;
        El_Ptr.Original_Size := El_Ptr.Current_Size;
    end loop;

exception
    when others =>
        Put_Line ("exception raised in UPDATE_ORIGINAL.");
end Update_Original;