diff -bru XML-FeedPP-0.21_02/lib/XML/FeedPP.pm XML-FeedPP-0.21_03/lib/XML/FeedPP.pm
--- XML-FeedPP-0.21_02/lib/XML/FeedPP.pm	2007-06-12 13:51:09.000000000 +0900
+++ XML-FeedPP-0.21_03/lib/XML/FeedPP.pm	2007-06-21 22:04:10.000000000 +0900
@@ -357,7 +357,7 @@
     $FEED_METHODS   $ITEM_METHODS
 );
 
-$VERSION = "0.21_02";
+$VERSION = "0.21_03";
 
 $RSS_VERSION    = '2.0';
 $RDF_VERSION    = '1.0';
@@ -1273,7 +1273,7 @@
 sub title       { shift->get_or_set( "title",       @_ ); }
 sub description { shift->get_or_set( "description", @_ ); }
 sub category    { shift->get_set_array( "dc:subject",  @_ ); }
-sub author      { shift->get_or_set( "creator",     @_ ); }
+sub author      { shift->get_or_set( "dc:creator",     @_ ); }
 sub guid { undef; }    # this element is NOT supported for RDF
 
 sub link {
diff -bru XML-FeedPP-0.21_02/t/03_rdf.t XML-FeedPP-0.21_03/t/03_rdf.t
--- XML-FeedPP-0.21_02/t/03_rdf.t	2007-01-21 02:15:50.000000000 +0900
+++ XML-FeedPP-0.21_03/t/03_rdf.t	2007-06-21 22:02:04.000000000 +0900
@@ -91,7 +91,7 @@
     like( $source2, qr/<dc:date[^>]*>\s*     \Q$idateB\E/x,  "<dc:date>" );
     like( $source2, qr/<description[^>]*>\s* \Q$idesc\E/x,   "<description>" );
     like( $source2, qr/<dc:subject[^>]*>\s*  \Q$icate\E/x,   "<dc:subject>" );
-    like( $source2, qr/<creator[^>]*>\s*     \Q$iauthor\E/x, "<creator>" );
+    like( $source2, qr/<dc:creator[^>]*>\s*     \Q$iauthor\E/x, "<creator>" );
 #   like( $source2, qr/<guid[^>]*>\s*        \Q$iguid\E/x,   "<guid>" );
 # ----------------------------------------------------------------
 ;1;