===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/awk/tran.c,v
retrieving revision 1.13
retrieving revision 1.14
diff -c -r1.13 -r1.14
*** src/usr.bin/awk/tran.c	2005/04/15 15:54:26	1.13
--- src/usr.bin/awk/tran.c	2006/11/04 19:10:15	1.14
***************
*** 1,4 ****
! /*	$OpenBSD: tran.c,v 1.13 2005/04/15 15:54:26 millert Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
--- 1,4 ----
! /*	$OpenBSD: tran.c,v 1.14 2006/11/04 19:10:15 jmc Exp $	*/
  /****************************************************************
  Copyright (C) Lucent Technologies 1997
  All Rights Reserved
***************
*** 333,342 ****
  		donerec = 1;
  	}
  	t = tostring(s);	/* in case it's self-assign */
- 	vp->tval &= ~NUM;
- 	vp->tval |= STR;
  	if (freeable(vp))
  		xfree(vp->sval);
  	vp->tval &= ~DONTFREE;
  	   dprintf( ("setsval %p: %s = \"%s (%p) \", t=%o r,f=%d,%d\n", 
  		vp, NN(vp->nval), t,t, vp->tval, donerec, donefld) );
--- 333,342 ----
  		donerec = 1;
  	}
  	t = tostring(s);	/* in case it's self-assign */
  	if (freeable(vp))
  		xfree(vp->sval);
+ 	vp->tval &= ~NUM;
+ 	vp->tval |= STR;
  	vp->tval &= ~DONTFREE;
  	   dprintf( ("setsval %p: %s = \"%s (%p) \", t=%o r,f=%d,%d\n", 
  		vp, NN(vp->nval), t,t, vp->tval, donerec, donefld) );