diff --git a/lib/Interchange6/Schema/Result/Message.pm b/lib/Interchange6/Schema/Result/Message.pm
index 26a05db..c0c1694 100644
--- a/lib/Interchange6/Schema/Result/Message.pm
+++ b/lib/Interchange6/Schema/Result/Message.pm
@@ -481,4 +481,14 @@ sub insert {
     }
 }
 
+=head2 message_type_name
+
+Shortcut which returns the name of the message type.
+
+=cut
+
+sub message_type_name {
+    return shift->message_type->name;
+}
+
 1;
diff --git a/t/lib/Test/Message.pm b/t/lib/Test/Message.pm
index 87432db..b0dccba 100644
--- a/t/lib/Test/Message.pm
+++ b/t/lib/Test/Message.pm
@@ -39,6 +39,7 @@ test 'simple message tests' => sub {
     lives_ok( sub { $result = $rset_message->create($data) },
         "Message OK with title, content and type" );
 
+    cmp_ok( $result->message_type, 'eq', 'blog_post', "Check whether message_type shortcut works." );
     cmp_ok( $rset_message->count, '==', 1, "We have one message" );
     lives_ok( sub { $result->delete }, "delete message" );
     cmp_ok( $rset_message->count, '==', 0, "We have zero messages" );