Minor bug fix.

db/changepid.in

 #!/usr/bin/perl -w
 #
-# Copyright (c) 2006 University of Utah and the Flux Group.
+# Copyright (c) 2006-2015 University of Utah and the Flux Group.
 # 
 # {{{EMULAB-LICENSE
 # 
@@ -144,7 +144,7 @@ DBQueryFatal("update group_membership set pid='$newpid',gid='$newpid' ".
 	     "where pid='$oldpid'");
 
 print "Updating groups table ...\n";
-DBQueryFatal("update groups set pid='$newpid',unix_name='$newpid' ".
+DBQueryFatal("update groups set pid='$newpid',gid=pid,unix_name='$newpid' ".
 	     "where pid='$oldpid'");
 
 print "Updating group_stats table ...\n";