#	This has been submitted to the community but has not been accepted yet.

#	The details can be found at the following location.

#	http://lists.research.att.com/pipermail/ast-developers/2014q1/003809.html

--- INIT.2012-08-01.old/src/cmd/ksh93/sh/subshell.c	2015-02-24 13:25:19.363479570 -0800

+++ INIT.2012-08-01/src/cmd/ksh93/sh/subshell.c	2015-03-05 13:02:10.389323525 -0800

@@ -242,15 +244,22 @@ Namval_t *sh_assignok(register Namval_t

 {

 	register Namval_t	*mp;

 	register struct Link	*lp;

-	register struct subshell *sp = (struct subshell*)subshell_data;

-	Shell_t			*shp = sp->shp;

-	Dt_t			*dp= shp->var_tree;

+	register struct subshell *sp;

+	Shell_t			*shp;

+	Dt_t			*dp;

 	Namval_t		*mpnext;

 	Namarr_t		*ap;

 	int			save;

+

+	sp = (struct subshell*)subshell_data;

+

 	/* don't bother with this */

-	if(!sp->shpwd || np==SH_LEVELNOD || np==L_ARGNOD || np==SH_SUBSCRNOD || np==SH_NAMENOD)

+	if(!sp || !sp->shpwd || np==SH_LEVELNOD || np==L_ARGNOD || np==SH_SUBSCRNOD || np==SH_NAMENOD)

 		return(np);

+

+	shp = sp->shp;

+	dp = shp->var_tree;

+

 	/* don't bother to save if in newer scope */

 	if(sp->var!=shp->var_tree && sp->var!=shp->var_base && shp->last_root==shp->var_tree)

 		return(np);