diff --git a/clientside/tmcc/common/config/rc.accounts b/clientside/tmcc/common/config/rc.accounts
index e183488a4ca94fd228611d39e4c748cd31887464..d9d7fc16b81ca60c0900d380ade2cf414179ce8c 100755
--- a/clientside/tmcc/common/config/rc.accounts
+++ b/clientside/tmcc/common/config/rc.accounts
@@ -225,7 +225,7 @@ sub doboot()
 	if ($exists) {
 	    if (WINDOWS()) {
 		# Windows needs to know all of the groups by name.
-		os_groupgid($group, $gid);
+		os_groupgid($gid, $group);
 	    }
 	    else {
 		if ($gid != $curgid) {
diff --git a/clientside/tmcc/cygwinseven/liblocsetup.pm b/clientside/tmcc/cygwinseven/liblocsetup.pm
index 2f39067afb140b6df766ec95503d7655b3720179..adbfc2f9b25cb7f894bea668b98a51b253a56644 100644
--- a/clientside/tmcc/cygwinseven/liblocsetup.pm
+++ b/clientside/tmcc/cygwinseven/liblocsetup.pm
@@ -576,7 +576,7 @@ sub os_groupadd($$)
     my %gh = (
 	'name' => $group,
 	);
-    my $error
+    my $error;
     if (!LocalGroupAdd("",$GLEVEL,\%gh,\$error)) {
 	my $err = Win32::GetLastError();
 	warning("GroupAdd failed: $err, $error\n");
@@ -609,7 +609,7 @@ sub os_addtogroup($$)
     if (!exists($groupMembers{$gname})) {
 	$groupMembers{$gname} = [];
     }
-    push @$groupMembers{$gname}, $login;
+    push(@{$groupMembers{$gname}}, $login);
 
     return 0;
 }