diff -Nru tcl/unix/tclUnixPipe.c tcl_mod/unix/tclUnixPipe.c
--- tcl/unix/tclUnixPipe.c	2003-02-22 01:25:07.000000000 +0100
+++ tcl_mod/unix/tclUnixPipe.c	2004-01-16 15:55:50.000000000 +0100
@@ -243,9 +243,32 @@
 Tcl_Obj* 
 TclpTempFileName()
 {
+#ifndef __sgi
     char fileName[L_tmpnam + 9];
     Tcl_Obj *result = NULL;
     int fd;
+#else
+    /* These changes concern mainly loading dynamic libraries from
+     * others than the native filesystem, e.g. vfs of a tclkit.
+     *
+     * IRIX does not generate different temporary filenames when using
+     * the copyToPtr-mechanism of Tcl_FSLoadFile(). Although the previous
+     * temporary file was deleted immediately and a TclCrossFilesystemCopy()
+     * took place, the content of the previous temporary file (same
+     * filename!!!) seems to be present. I.e. only the first dynamic library
+     * is loaded (e.g. Itcl_Init was found) but all following libraries
+     * fail (e.g. "couldn't find procedure Tk_Init"). Using a different
+     * temporary filename seems to solve this problem. For this a static
+     * counter is included in the temporary filename. It is 5 digits long,
+     * i.e. 10000 dynamic libraries could be loaded from a tclkit (should
+     * be sufficient for the next few years :-) )
+     */
+    char fileName[L_tmpnam + 9 + 5];
+    Tcl_Obj *result = NULL;
+    int fd;
+    static int ctr=0;
+    char ctrStr[15];
+#endif
 
     /*
      * We should also check against making more then TMP_MAX of these.
@@ -255,7 +278,14 @@
     if (fileName[strlen(fileName) - 1] != '/') {
 	strcat(fileName, "/");		/* INTL: Native. */
     }
+#ifndef __sgi
     strcat(fileName, "tclXXXXXX");
+#else
+    /* add static ctr*/
+    snprintf(ctrStr,14,"tcl%05iXXXXXX",ctr++);
+    strcat(fileName, ctrStr);
+#endif
+
     fd = mkstemp(fileName);		/* INTL: Native. */
     if (fd == -1) {
 	return NULL;
