diff --git a/Changelog b/Changelog
index a476189f9680c480ac58f2ebe093027885311722..db057bbc9b75b13968e9ad2fff5bf30f925fb570 100644
--- a/Changelog
+++ b/Changelog
@@ -1,4 +1,4 @@
-git HEAD
+Travel::Status::DE::DeutscheBahn 4.00 - Fri Oct 28 2022
 
     * Use mgate.exe HAFAS interface instead of stboard.exe/bhftafel.exe.
       This introduces several breaking changes in hafas-m,
@@ -21,7 +21,7 @@ git HEAD
     * Rename Travel::Status::DE::HAFAS::Result to ...::Journey. The accessors
       "sched_date", "date", "info", "countdown", "countdown_sec",
       "raw_e_delay", "raw_delay", "sched_time", "time", "train", "train_no"
-      and "line_no" are no longer supported. Introduces several new 
+      and "line_no" are no longer supported. Introduces several new ones
       instead.
     * The module no longer depends on XML::LibXML
     * New dependency: Digest::MD5
diff --git a/bin/hafas-m b/bin/hafas-m
index 13a1d4b251218dac1730348cef35efc92772613b..928eebbe908d177c7d571f0296e94cbbacfa01ca 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '3.01';
+our $VERSION = '4.00';
 
 use utf8;
 use DateTime;
@@ -333,7 +333,7 @@ B<hafas-m> [B<-d> I<date>] [B<-t> I<time>] [B<-m> I<motlist>]
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 008dee51ad0a850b2dd21b0e4c3abb4407c16dec..d30300f3707de501676af35a2eabeebc91dd0918 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 = '3.01';
+our $VERSION = '4.00';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index 986e7fc1ea43acc15f8356211eb1b34379e2b5d1..e1876d8f0522af561202d7f1ebe9d8c06ba4ec30 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -21,7 +21,7 @@ use Travel::Status::DE::HAFAS::Polyline qw(decode_polyline);
 use Travel::Status::DE::HAFAS::Journey;
 use Travel::Status::DE::HAFAS::StopFinder;
 
-our $VERSION = '3.01';
+our $VERSION = '4.00';
 
 # {{{ Endpoint Definition
 
@@ -735,7 +735,7 @@ monitors
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 8e4745dfe4e9f12d49a748909b53d6fb458295fc..fba55cd3897507effd4075afd100394f01f3a26c 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -10,7 +10,7 @@ no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 use parent 'Class::Accessor';
 
-our $VERSION = '3.01';
+our $VERSION = '4.00';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -347,7 +347,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 7edcd6cd0ff5b7158709cce31c8aca96b71f78b0..e70e30e389ec65409ff7e0f6f0a95a2fb95b9841 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 = '3.01';
+our $VERSION = '4.00';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
 	qw(short text code prio ref_count));
@@ -45,7 +45,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index 24d16b54cd4103f4377068e47c76fd7295498c96..0110a939fbb439c98d29e16daf203131ff1b0188 100644
--- a/lib/Travel/Status/DE/HAFAS/StopFinder.pm
+++ b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
@@ -12,7 +12,7 @@ use Encode qw(decode);
 use JSON;
 use LWP::UserAgent;
 
-our $VERSION = '3.01';
+our $VERSION = '4.00';
 
 sub new {
 	my ( $obj, %conf ) = @_;
@@ -123,7 +123,7 @@ finder services
 
 =head1 VERSION
 
-version 3.01
+version 4.00
 
 =head1 DESCRIPTION