diff --git a/lib/WebGUI/Form/Zipcode.pm b/lib/WebGUI/Form/Zipcode.pm
index 75e15561d..9d71ad137 100644
--- a/lib/WebGUI/Form/Zipcode.pm
+++ b/lib/WebGUI/Form/Zipcode.pm
@@ -94,7 +94,7 @@ sub getValue {
 	my $self = shift;
 	my $value = $self->SUPER::getValue(@_);
 	$value =~ tr/\r\n//d;
-	$value =~ tr/a-z/A-Z/d;
+	$value =~ tr/a-z/A-Z/;
    	if ($value =~ /^[A-Z\d\s\-]+$/) {
 		return $value;
 	}