diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 3020ae2c1e8df523bd286c909b9e0a3a6c7786b7..e67eb3bdabb2068d2f2a376c92985db3653c4368 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -619,6 +619,7 @@ sub add_message {
 
 	my $short = $json->{txtS};
 	my $text  = $json->{txtN};
+	my $type  = $json->{type};
 	my $code  = $json->{code};
 	my $prio  = $json->{prio};
 
@@ -643,6 +644,7 @@ sub add_message {
 	my $message = Travel::Status::DE::HAFAS::Message->new(
 		short     => $short,
 		text      => $text,
+		type      => $type,
 		code      => $code,
 		prio      => $prio,
 		is_him    => $is_him,
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 72d8e7781dcedc0485a3cad4bb6be860aacdd210..df49c5ab1f5a5255a9eeb2eac44c155cda3c1575 100644
--- a/lib/Travel/Status/DE/HAFAS/Message.pm
+++ b/lib/Travel/Status/DE/HAFAS/Message.pm
@@ -9,7 +9,7 @@ use parent 'Class::Accessor';
 our $VERSION = '4.18';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
-	qw(short text code prio is_him ref_count));
+	qw(short type text code prio is_him ref_count));
 
 sub new {
 	my ( $obj, %conf ) = @_;