diff --git a/lib/OSRIC/Character.pm b/lib/OSRIC/Character.pm
index ce756f6..f6e5367 100644
--- a/lib/OSRIC/Character.pm
+++ b/lib/OSRIC/Character.pm
@@ -276,6 +276,13 @@ sub set_alignment
 	$self->{personal}->{alignment} = shift;
 }
 
+# Sets the character's name to the passed string:
+sub set_name
+{
+	my $self = shift;
+	$self->{personal}->{name} = shift;
+}
+
 # Encodes the character to JSON:
 sub as_json
 {