Index: unix/Makefile.in
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/Makefile.in,v
retrieving revision 1.71
diff -u -r1.71 Makefile.in
--- unix/Makefile.in	2000/11/16 00:15:29	1.71
+++ unix/Makefile.in	2001/01/11 09:18:40
@@ -453,6 +453,7 @@
 
 # Useful target to launch a built tcltest with the proper path,...
 runtest: tcltest
+	@echo "cd $(TOP_DIR)/tests ; source all.tcl"
 	LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; \
 	LIBPATH=`pwd`:${LIBPATH}; export LIBPATH; \
 	SHLIB_PATH=`pwd`:${SHLIB_PATH}; export SHLIB_PATH; \
Index: tests/interp.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/interp.test,v
retrieving revision 1.11
diff -u -r1.11 interp.test
--- tests/interp.test	2000/04/10 17:19:00	1.11
+++ tests/interp.test	2001/01/11 09:18:42
@@ -635,7 +635,10 @@
 # the bugs as a core dump.
 #
 
-if {[info commands testinterpdelete] != ""} {
+if {[info commands testinterpdelete] == ""} {
+    puts "This application hasn't been compiled with the \"testinterpdelete\""
+    puts "command, so I can't test slave delete calls"
+} else {
     test interp-18.1 {testing Tcl_DeleteInterp vs slaves} {
 	list [catch {testinterpdelete} msg] $msg
     } {1 {wrong # args: should be "testinterpdelete path"}}
@@ -2352,6 +2355,26 @@
     rename myNewSet {}
     set result
 } ok
+
+# Check that the current working directory is inherited
+# by a child interp.
+
+test interp-32.1 { parent's working directory should
+                   be inherited by a child interp } {
+    set parent [pwd]
+    set i [interp create]
+    set child [$i eval pwd]
+    interp delete $i
+    file mkdir cwd_test
+    cd cwd_test
+    lappend parent [pwd]
+    set i [interp create]
+    lappend child [$i eval pwd]
+    cd ..
+    file delete cwd_test
+    interp delete $i
+    string equal $parent $child
+} 1
 
 # cleanup
 foreach i [interp slaves] {
