Index: lib/Mail/SpamAssassin/Util.pm
===================================================================
--- lib/Mail/SpamAssassin/Util.pm	(revision 1841611)
+++ lib/Mail/SpamAssassin/Util.pm	(working copy)
@@ -1507,10 +1507,10 @@
   my $gids = get_user_groups($touid);
   my ( $pgid, $supgs ) = split (' ',$gids,2);
   defined $supgs or $supgs=$pgid;
-  if ($( != $pgid) {
+  if ((split (' ',$())[0] != $pgid) {
     # Gotta be root for any of this to work
     $> = 0 ;
-    dbg("util: changing real primary gid from $( to $pgid and supplemental groups to $supgs to match effective uid $touid");
+    dbg("util: changing real primary gid from " . (split (' ',$())[0] . " to $pgid and supplemental groups to $supgs to match effective uid $touid");
     POSIX::setgid($pgid);
     dbg("util: POSIX::setgid($pgid) set errno to $!");  
     $! = 0;