1 files changed, 8 insertions, 1 deletions
diff --git a/libtk/packr.c b/libtk/packr.c
index 14572e79..c5f2ac6d 100644
--- a/libtk/packr.c
+++ b/libtk/packr.c
@@ -80,7 +80,14 @@ TkOption opts[] =
 void
 tkdelpack(Tk *t)
 {
-	Tk *f, **l;
+	Tk *f, **l, *sub, *p;
+
+	sub = tkfindsub(t);
+	if(sub != nil) {
+		p = sub->parent;
+		if(tkmethod[p->type]->forgetsub != nil)
+			tkmethod[p->type]->forgetsub(sub, t);
+	}
 
 	if(t->master == nil)
 		return;