Bringing shapes up from lower level cells

 I am trying to copy a specific set of layers in all lower level cells up to the current level of hierarchy.  My current code is as follows:

info = geGetWindowCellView()

bbox = info~>bBox

all_objects = leSearchHierarchy( info bbox 32 "any shape" nil )

epi_objects = nil

foreach( shape all_objects

   layername = substring( shape~>layerName 1 3 )

   if( layername == "EPI" then

      epi_objects = cons( dbCopyFig( shape info ) epi_objects )

   )

)
 

This doesn't work correctly.  It copies each EPI from the lower level cell relatve to it's origin, to the top level relative to it's origin.  That is, they are all shoved down and to the left...  I want the EPI objects to be placed "where they belong", over their hieractical positions. 

Can someone please tell me how to fix it?