--- gawk-3.1.5/node.c.orig	2006-12-17 22:35:41 +0000
+++ gawk-3.1.5/node.c	2006-12-17 23:39:53 +0000
@@ -695,12 +695,7 @@ str2wstr(NODE *n, size_t **ptr)
 			return n;
 		/* otherwise
 			fall through and recompute to fill in the array */
-	}
-
-	if (n->wstptr != NULL) {
-		free(n->wstptr);
-		n->wstptr = NULL;
-		n->wstlen = 0;
+		free_wstr(n);
 	}
 
 	/*