Re: worth the hassle?

["chris.danx" <spamoff.danx@ntlworld.com>]

Fixed it with the help of the Booch components.

function First (List : in List_Type) return Iterator_Type is
begin
   if Is_Empty (List) then
      raise Empty_List_Error;
   end if;
   return Iterator_Type'(
      List_Address_Conversions.To_Pointer(List'Address).all'access,
         List.First);
end First;