Index: config/gen/makefiles/tcl.in
===================================================================
RCS file: /cvs/public/parrot/config/gen/makefiles/tcl.in,v
retrieving revision 1.2
diff -u -u -r1.2 tcl.in
--- config/gen/makefiles/tcl.in	16 Mar 2004 10:31:58 -0000	1.2
+++ config/gen/makefiles/tcl.in	18 Mar 2004 18:38:01 -0000
@@ -1,8 +1,8 @@
-RM_F = ${rm_f}
-PERL = ${perl}
-PARROT = parrot${exe}
-RELPATH = ../../
-MYPATH = languages/tcl/
+RM_F    = ${rm_f}
+PERL    = ${perl}
+PARROT  = .${slash}parrot${exe}
+RELPATH = ..${slash}..${slash}
+MYPATH  = languages${slash}tcl${slash}
 
 DEPS = $(RELPATH)$(PARROT) \
 lib/backslash_newline_subst.imc \
Index: languages/tcl/t/run_pir.pm
===================================================================
RCS file: /cvs/public/parrot/languages/tcl/t/run_pir.pm,v
retrieving revision 1.1
diff -u -u -r1.1 run_pir.pm
--- languages/tcl/t/run_pir.pm	16 Mar 2004 10:31:48 -0000	1.1
+++ languages/tcl/t/run_pir.pm	18 Mar 2004 18:38:01 -0000
@@ -19,7 +19,7 @@
   my $pir = shift;
   my $sl = $::PConfig{slash};
   my $exe = $::PConfig{exe};
-  my $PARROT = "parrot$exe";
+  my $PARROT = ".${sl}parrot${exe}";
   open (PIR,">$file");
   print PIR $pir;
   close (PIR);