diff --git a/dcd.pl b/dcd.pl
index 57639e0a74cc5f5168a6bd6d464c5c0645c58e08..c597770cf9fcf4714cc4926712bb9f3eaced3958 100755
--- a/dcd.pl
+++ b/dcd.pl
@@ -333,7 +333,7 @@ print __LINE__, " prod_doi_string=[$prod_doi_string] pfx=[$pfx] ns=[$ns] nr=[$nr
 
     if ($register_live)
     {
-      my $reg_obj= new DataCite::API (config => $reg_cnf, 'xmode' => 'test');
+      my $reg_obj= new DataCite::API (config => $reg_cnf, xmode => 'test');
       unless ($reg_obj->register_doi ($prod_doi_string, $prod_xml_new, $repo_url))
       {
         print "ATTN: register_doi doi=[$prod_doi_string] was not ok\n";