How to get the label from a Menu_Item?

Hi all,

How do I properly get the label contained by a menu_item?  Here is my code:

procedure Menu_Handler(Object : access Gtk_Menu_Item_Record'Class) is

            Child : Gtk_Widget;

            Label : Gtk_Label;

begin

Child := Get_Child(Object);

Label := Gtk_Label(Child);

end Menu_Handler;

This compiles fine but when it gets to the line where Label is assigned to I get a tag check exception.  Any ideas?

Scott