--- all.tcl	Mon Jan 21 12:55:22 2002
+++ all.tcl	Mon Jan 28 14:30:41 2002
@@ -122,4 +122,5 @@
     # import the auto_path from the parent interp, so "package require" works
     $c eval {
+	set ::argv0 [pSet ::argv0]
 	set ::tcllibModule [pSet module]
 	set auto_path [pSet auto_path]
--- modules/comm/comm.test	Mon Jun 10 19:14:56 2002
+++ modules/comm/comm.test	Sun Feb 23 11:25:48 2003
@@ -29,5 +29,5 @@
 
 makeFile {
-    puts [set fh [open ~/foo w]] $argv ; close $fh
+    puts [set fh [open [pwd]/TemporaryFile w]] $argv ; close $fh
 
     source [lindex $argv 0].tcl ; # load 'comm'
