diff --git a/Changelog b/Changelog
index 625b8ccd1534db22c23ce41c7768ec7eabce1933..d687a23d5de9850e1ff40e6b2455a5b5084c71bb 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,12 @@
+Travel::Status::DE::DeutscheBahn 5.01 - Sat Nov 25 2023
+
+    * Fix incorrect handling of HIM messages (introduced in 4.19)
+    * hafas-m: Declutter station board output: sort by real-time data and show
+      all messages at the end
+    * Journey: Support construction from JSON that does not provide a date
+      attribute (i.e., add date parameter to constructor)
+    * Stop: Add messages accessor
+
 Travel::Status::DE::DeutscheBahn 5.00 - Tue Nov 21 2023
 
     * hafas-m: Add --raw-json option (useful for HAFAS client development)
diff --git a/bin/hafas-m b/bin/hafas-m
index 42b068107afb96cb71cbf91733f4bccd3c33b99f..222a35db053f6d1bb35ea1dacc4048d6c352f201 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 use utf8;
 use DateTime;
@@ -515,7 +515,7 @@ B<hafas-m> [B<-s> I<service>] [B<-l> I<language>] B<!>I<query>|I<journeyID>
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 6e7c1a543b0d6f5f4309dec37dc44022bd3ee7fe..c03f15463973e51a52587817ddced9fc3e5ae18c 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Travel::Status::DE::HAFAS';
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 395d987d03f722c447162fe66cf00ef80118af95..cd0afa185da1b190e315dda324288d556623019c 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -20,7 +20,7 @@ use Travel::Status::DE::HAFAS::Message;
 use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline);
 use Travel::Status::DE::HAFAS::StopFinder;
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 # {{{ Endpoint Definition
 
@@ -964,7 +964,7 @@ monitors
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 169df7190bdd8f9206d1600b1d5fba733a3d77de..5bc7f80d3d43244bb08e25362ebf13dbdc319bca 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -12,7 +12,7 @@ use List::Util   qw(any);
 use Scalar::Util qw(weaken);
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -403,7 +403,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Location.pm b/lib/Travel/Status/DE/HAFAS/Location.pm
index d2ce11244ca8547a97223cb9e6635636b538675d..27706a7b87dc909668b60c0b4ce1815198b0df58 100644
--- a/lib/Travel/Status/DE/HAFAS/Location.pm
+++ b/lib/Travel/Status/DE/HAFAS/Location.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 Travel::Status::DE::HAFAS::Location->mk_ro_accessors(
 	qw(lid type name eva state lat lon distance_m weight));
@@ -57,7 +57,7 @@ Travel::Status::DE::HAFAS::Location - A single public transit location
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 9e81f5cdd9bd0707c47585bb9134ab7eff60a621..d3f4873c9300b4eac5218f29b311a0de98cff180 100644
--- a/lib/Travel/Status/DE/HAFAS/Message.pm
+++ b/lib/Travel/Status/DE/HAFAS/Message.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
 	qw(short type text code prio is_him ref_count));
@@ -69,7 +69,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm
index 5795d48d6e105441b9694973752c719de3a799fa..427f3dbe1c342503f197969a61d4882a6ecc0b48 100644
--- a/lib/Travel/Status/DE/HAFAS/Polyline.pm
+++ b/lib/Travel/Status/DE/HAFAS/Polyline.pm
@@ -16,7 +16,7 @@ use 5.014;
 use parent 'Exporter';
 our @EXPORT_OK = qw(decode_polyline);
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 # Translated this php script
 # <http://unitstep.net/blog/2008/08/02/decoding-google-maps-encoded-polylines-using-php/>
diff --git a/lib/Travel/Status/DE/HAFAS/Stop.pm b/lib/Travel/Status/DE/HAFAS/Stop.pm
index 5d2ab362b1e9986ec0d04a5756051c8525a13b6d..b3bce0834365419c9aa52fc710f3afe636960d3f 100644
--- a/lib/Travel/Status/DE/HAFAS/Stop.pm
+++ b/lib/Travel/Status/DE/HAFAS/Stop.pm
@@ -8,7 +8,7 @@ use 5.014;
 
 use parent 'Class::Accessor';
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 Travel::Status::DE::HAFAS::Stop->mk_ro_accessors(
 	qw(loc
@@ -183,7 +183,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop.
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index 6d79b62107366ca1fe0d3cc9675b9d8f7dc196dd..1c32c9d156f8a1632d07abf0af1eae91a7c76272 100644
--- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm
+++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
@@ -10,7 +10,7 @@ use Encode qw(decode);
 use JSON;
 use LWP::UserAgent;
 
-our $VERSION = '5.00';
+our $VERSION = '5.01';
 
 # {{{ Constructors
 
@@ -180,7 +180,7 @@ finder services
 
 =head1 VERSION
 
-version 5.00
+version 5.01
 
 =head1 DESCRIPTION