--- pdksh-5.2.14.orig/c_sh.c	Tue Jul 13 18:54:44 1999
+++ pdksh-5.2.14/c_sh.c	Thu May 17 02:54:04 2001
@@ -422,7 +422,8 @@
 c_eval(wp)
 	char **wp;
 {
-	register struct source *s;
+	register struct source *s,*olds=source;
+	int retval;
 
 	if (ksh_getopt(wp, &builtin_opt, null) == '?')
 		return 1;
@@ -456,7 +457,9 @@
 		exstat = subst_exstat;
 	}
 
-	return shell(s, FALSE);
+	retval=shell(s, FALSE);
+	source=olds;
+	return retval;
 }
 
 int