ca57771
diff -up expect5.45/expect.c.orig expect5.45/expect.c
ca57771
--- expect5.45/expect.c.orig	2013-10-02 13:16:31.462430482 +0200
ca57771
+++ expect5.45/expect.c	2013-10-02 13:17:18.420599495 +0200
ca57771
@@ -185,9 +185,9 @@ free_ecase(
ca57771
 {
ca57771
     if (ec->i_list->duration == EXP_PERMANENT) {
ca57771
 	if (ec->pat)  { Tcl_DecrRefCount(ec->pat); }
ca57771
-	if (ec->gate) { Tcl_DecrRefCount(ec->gate); }
ca57771
 	if (ec->body) { Tcl_DecrRefCount(ec->body); }
ca57771
     }
ca57771
+    if (ec->gate) { Tcl_DecrRefCount(ec->gate); }
ca57771
 
ca57771
     if (free_ilist) {
ca57771
 	ec->i_list->ecount--;