--- a/bin/amdumpext	Mon Dec 16 14:31:18 2013 +0100
+++ b/bin/amdumpext	Mon Dec 16 15:27:57 2013 +0100
@@ -122,7 +122,16 @@
 
     OK "$ME version $VERSION";
     OK "euid=$> (" . getpwuid($>) . ')'; 
-    OK "egid=$) (" . join(', ' => map { '' . getgrgid $_ } split ' ' => $)) . ')';
+    OK "egid=" . do {
+	my $gid = (split ' ', $))[0];
+	my $group = getgrgid $gid;
+	"$gid ($group)";
+    };
+    OK "groups=" . do {
+	my (undef, @gids) = split ' ', $);
+	my @groups = map { '' . getgrgid $_ } @gids;
+	"@gids (@groups)";
+    };
 
     if ($_ = (grep { -x ($_ .= "/dump") } split /:/ => $ENV{PATH})[0]) {
         chomp(my $version = (`$_ 2>&1`)[0]);