diff --git a/mycp/mycp b/mycp/mycp
index a3f6e78..2069efa 100755
--- a/mycp/mycp
+++ b/mycp/mycp
@@ -182,8 +182,6 @@ sub inperms($) {
 	my $mode = sprintf "%lo", $stats[2];
 	$mode =~ s/.*(\d{4})$/$1/;
 
-	print "$mode:$user:$group:$fullname\n";
-
 	unless ( -f $permsfile ) {
 		open FH, ">$permsfile";
 		print FH <<EOT;
@@ -192,8 +190,8 @@ sub inperms($) {
 
 EOT
 		close FH;
-		system("$cvscmd add $permsfile");
-		system("$cvscmd ci -m initial $permsfile");
+		&cvsadd($permsfile);
+		&checkin($permsfile);
 	}
 
 	my $perms = &slurp($permsfile);