--- /usr/cmu/perl/Archive.pm.orig	Thu May 23 09:45:17 2002
+++ /usr/cmu/perl/Archive.pm	Thu May 23 09:48:35 2002
@@ -402,7 +402,7 @@
 	chdir "$dir" || cmuLog("ERROR","Could not chdir to $dir: $!\n");
 	foreach my $file (@{ $self->{tree}->{ $self->set }->{file} }) {
 		if(defined $file->{uid} && defined $file->{gid}) {
-			my $chownCmd = $self->cfg('chownBin')." ".$file->{uid}.".".
+			my $chownCmd = $self->cfg('chownBin')." ".$file->{uid}.":".
 			$file->{gid}." \"".$file->{name}."\"";
 			#warn "chownCmd: ", $chownCmd, "\n";
 			#chown $file->{uid}, $file->{gid}, qw( $realFile );