replace call to setpgrp with setpgid, as setpgrp is defined different on OS X Tiger

diff --git a/src/tclx/src/tclxid.c b/src/tclx/src/tclxid.c
index b23d7bb8b571cbe577a86d5e49bee513dc1ab95b..730c4ef8cfec94bb9f97f40153a83137c9eb78e0 100644 (file)
--- a/src/tclx/src/tclxid.c
+++ b/src/tclx/src/tclxid.c
@@ -239,7 +239,7 @@ Tcl_IdCmd (clientData, interp, argc, argv)
                                   " process group [set]", (char *) NULL);
                 return TCL_ERROR;
             }
                                   " process group [set]", (char *) NULL);
                 return TCL_ERROR;
             }

-            setpgrp ();
+            setpgid(getpid(), getpid());

             return TCL_OK;
         }
         Tcl_AppendResult (interp, tclXWrongArgs, argv [0], 
             return TCL_OK;
         }
         Tcl_AppendResult (interp, tclXWrongArgs, argv [0],