added (retain-parent) procedure

Signed-off-by: Jan Dvořák <mordae@anilinux.org>