diff options
Diffstat (limited to 'generic/Group.c')
-rw-r--r-- | generic/Group.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/generic/Group.c b/generic/Group.c index 3c061eb..4305353 100644 --- a/generic/Group.c +++ b/generic/Group.c @@ -158,6 +158,11 @@ Clone(Item item) Tcl_HashEntry *entry; int new, num_items, i; + if (item == item->wi->top_group) { + /* Do not try to clone the top group */ + return; + } + current_item = group->tail; group->head = group->tail = ZN_NO_ITEM; #ifdef OM |