diff --git a/DocDB/cgi/AdministerElements.pm b/DocDB/cgi/AdministerElements.pm
index 4e34e59e..7149a793 100644
--- a/DocDB/cgi/AdministerElements.pm
+++ b/DocDB/cgi/AdministerElements.pm
@@ -32,17 +32,14 @@ sub AdministerActions (%) {
   my $Form = $Params{-form}  || "";
   my $AddTransfer = $Params{-addTransfer}  || $FALSE;
 
-  my %Action = ();
+  my @Action = ('New', 'Delete', 'Modify');
 
-  $Action{Delete}    = "Delete";
-  $Action{New}       = "New";
-  $Action{Modify}    = "Modify";
   if ($AddTransfer) {
-    $Action{Transfer}    = "Transfer";
+    push( @Action, "Transfer" );
   }
   print FormElementTitle(-helplink => "admaction", -helptext => "Action");
   print $query -> radio_group(-name => "admaction",
-                              -values => \%Action, -default => "-",
+                              -values => \@Action, -default => "-",
                               -onclick => "disabler_$Form();");
 };