with Agpl.Generic_Handle; package Adafn.Message.Handle is new Agpl.Generic_Handle (Message.Object'Class);