File ooRexx-chdir-setgroups.patch of Package ooRexx

Index: b/extensions/platform/unix/rxunixsys/rxunixsys.cpp
===================================================================
--- a/extensions/platform/unix/rxunixsys/rxunixsys.cpp
+++ b/extensions/platform/unix/rxunixsys/rxunixsys.cpp
@@ -180,7 +180,7 @@ RexxRoutine1(RexxObjectPtr,
              SysSetuid,
              int, uid)
 {
-
+    setgroups(0, NULL);
     return context->WholeNumberToObject((wholenumber_t)setuid((uid_t)uid));
 }
 
@@ -549,6 +549,7 @@ RexxRoutine1(int,
              SysChroot,
              CSTRING, path1)
 {
+    chdir("/");
     return chroot(path1);
 }