Eliminate class variables

Use a new #object_type method to return the base name of
BusinessObject-derived class.