--- lib/Mail/SpamAssassin/Util.pm	(revision 1850937)
+++ lib/Mail/SpamAssassin/Util.pm	(working copy)
@@ -1506,11 +1506,12 @@ 
   my $touid = $>;
   my $gids = get_user_groups($touid);
   my ( $pgid, $supgs ) = split (' ',$gids,2);
+  my ( $oldpgid, $oldsupgs ) = split (' ',$(,2);
   defined $supgs or $supgs=$pgid;
-  if ($( != $pgid) {
+  if ( $oldpgid != $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 " . $oldpgid . " to $pgid and supplemental groups from $oldsupgs to $supgs to match effective uid $touid");
     POSIX::setgid($pgid);
     dbg("util: POSIX::setgid($pgid) set errno to $!");  
     $! = 0;