diff --git a/lib/WebGUI/Asset/Wobject/Poll.pm b/lib/WebGUI/Asset/Wobject/Poll.pm
index fad9e9b9c..e6a8307e0 100644
--- a/lib/WebGUI/Asset/Wobject/Poll.pm
+++ b/lib/WebGUI/Asset/Wobject/Poll.pm
@@ -155,7 +155,7 @@ sub definition {
 }
 
 #-------------------------------------------------------------------
-sub duplcate {
+sub duplicate {
 	my $self = shift;
 	my $newAsset = $self->SUPER::duplicate(shift);
 	my $sth = WebGUI::SQL->read("select * from Poll_answer where assetId=".quote($self->getId));