strange warning: "return" statement missing following?

[GNADE proejct account <michael.erdmann@snafu.de>]

Dear all,

when i am compiling my code, i get the following error:

cache.adb:82:04: warning: in instantiation at
util-dynamic_hashtable.adb:310 cache.adb:82:04: warning: "return"
statement missing following this statement cache.adb:82:04: warning:
Program_Error may be raised at run time

the offending lines in util-dynamic_hash.adb are:

   function Get_Root(                                 <--- Line 310
      This : in Object ) return Key_List_Access is Data :
      Object_Data_Access renames This.Data; I    : Iterator_Type ;
   begin
      I.Reset( Get( Data.Root ) );

      return I.First;
   end Get_Root ;

I have no idea what the compiler is complaining about! Any Idea?