diff --git a/perl-xCAT/xCAT/PPCcfg.pm b/perl-xCAT/xCAT/PPCcfg.pm
index 97da9e070..953de1332 100644
--- a/perl-xCAT/xCAT/PPCcfg.pm
+++ b/perl-xCAT/xCAT/PPCcfg.pm
@@ -388,7 +388,7 @@ sub frame {
                     if ( !defined($ent) or !defined($ent->{id}) ) {
                         return( [[$node,"Cannot find frame num in database",RC_ERROR]] );
                     }
-                    $data = xCAT::PPCcli::chsyscfg( $exp, $d, $ent->{id} );
+                    $data = xCAT::PPCcli::chsyscfg( $exp, "frame", $d, $ent->{id} );
                     $Rc = shift(@$data);
 
                     #################################
@@ -405,7 +405,7 @@ sub frame {
                     # Set frame number
                     # Read the frame number from opt
                     #################################
-                    $data = xCAT::PPCcli::chsyscfg( $exp, $d, $value );
+                    $data = xCAT::PPCcli::chsyscfg( $exp, "frame", $d, $value );
                     $Rc = shift(@$data);
 
                     #################################
diff --git a/perl-xCAT/xCAT/PPCcli.pm b/perl-xCAT/xCAT/PPCcli.pm
index 01e8328d0..17d62ec6f 100644
--- a/perl-xCAT/xCAT/PPCcli.pm
+++ b/perl-xCAT/xCAT/PPCcli.pm
@@ -305,13 +305,14 @@ sub lssyscfg {
 sub chsyscfg {
 
     my $exp     = shift;
+    my $res     = shift;
     my $d       = shift;
     my $cfgdata = shift;
 
     #####################################
     # Select command
     #####################################
-    my $cmd = sprintf( $chsyscfg{@$d[4]}, @$d[2], $cfgdata); 
+    my $cmd = sprintf( $chsyscfg{$res}, @$d[2], $cfgdata ); 
 
     #####################################
     # Send command
diff --git a/perl-xCAT/xCAT/PPCvm.pm b/perl-xCAT/xCAT/PPCvm.pm
index bbfb814e2..e13d20a2d 100644
--- a/perl-xCAT/xCAT/PPCvm.pm
+++ b/perl-xCAT/xCAT/PPCvm.pm
@@ -788,7 +788,7 @@ sub modify_by_attr {
                     push @values, [$lpar, $err_msg, $Rc];
                     next;
                 }
-                my $result = xCAT::PPCcli::chsyscfg( $exp, $d, $cfgdata );
+                my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfgdata );
                 $Rc = shift(@$result);
                 push @values, [$lpar,@$result[0],$Rc];
             }
@@ -999,7 +999,7 @@ sub modify_by_prof {
                push @values, [$lpar,@$result[0],$Rc];
             }
             else {
-               my $result = xCAT::PPCcli::chsyscfg( $exp, $d, $cfg );
+               my $result = xCAT::PPCcli::chsyscfg( $exp, "prof", $d, $cfg );
                my $Rc = shift(@$result);
                push @values, [$lpar,@$result[0],$Rc];
             }