diff --git a/perl-xCAT/xCAT/DBobjUtils.pm b/perl-xCAT/xCAT/DBobjUtils.pm
index 61c4376d8..88228aabe 100644
--- a/perl-xCAT/xCAT/DBobjUtils.pm
+++ b/perl-xCAT/xCAT/DBobjUtils.pm
@@ -735,7 +735,7 @@ sub setobjdefs
                         # make a new list without the one specified
                         my $first = 1;
                         my $newlist;
-                        foreach my $i (sort @currentList)
+                        foreach my $i (@currentList)
                         {
                             chomp $i;
                             if (!grep(/^$i$/, @minusList))
@@ -828,7 +828,7 @@ sub setobjdefs
                         # make a new list without the one specified
                         my $first = 1;
                         my $newlist;
-                        foreach my $i (sort @currentList)
+                        foreach my $i (@currentList)
                         {
                             chomp $i;
                             if (!grep(/^$i$/, @minusList))
@@ -1102,7 +1102,7 @@ sub setobjdefs
                     # make a new list without the one specified
                     my $first = 1;
                     my $newlist;
-                    foreach my $i (sort @currentList)
+                    foreach my $i (@currentList)
                     {
                         chomp $i;
                         if (!grep(/^\Q$i\E$/, @minusList))