1 --- a/src/cmd/ksh93/bltins/typeset.c	Fri Dec 31 00:15:57 2010

     2 +++ b/src/cmd/ksh93/bltins/typeset.c	Tue Jun 28 13:59:53 2011

     3 @@ -608,7 +608,7 @@

     4  			}

     5  			if(!nv_isarray(np) && !strchr(name,'=') && !(shp->envlist  && nv_onlist(shp->envlist,name)))

     6  			{

     7 -				if(comvar || (shp->last_root==shp->var_tree && (tp->tp || (!shp->st.real_fun && (nvflags&NV_STATIC)) || (!(flag&NV_EXPORT) && nv_isattr(np,(NV_EXPORT|NV_IMPORT))==(NV_EXPORT|NV_IMPORT)))))

     8 +				if(comvar || (shp->last_root==shp->var_tree && (tp->tp || (!shp->st.real_fun && (nvflags&NV_STATIC)) || (!(flag&(NV_EXPORT|NV_RDONLY)) && nv_isattr(np,(NV_EXPORT|NV_IMPORT))==(NV_EXPORT|NV_IMPORT)))))

     9  {

    10  					_nv_unset(np,0);

    11  }