current_object	same as the Pike function this_object()
context.program	the program in which this function resides
current_storage	a 'char *' pointer into the data area for this

	object. This is the pointer to the area reserved

	for you if you have done add_storage() earlier.