diff --git a/Changelog b/Changelog
index c7fcee3f586f2ad84b3bbb1b370619fc879026f5..b07e65db90b98d0ad6722b64ebf24b2e7329439a 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,7 @@
+Travel::Status::DE::DeutscheBahn 4.15 - Wed Aug 22 2023
+
+    * HAFAS: Add similar_stops_p function
+
 Travel::Status::DE::DeutscheBahn 4.14 - Tue Aug 22 2023
 
     * Journey: Correctly calculate datetimes when requesting a cross-midnight
diff --git a/bin/hafas-m b/bin/hafas-m
index 28e230c5a3d1dcd24c9268f1ae630cc458b3c2f1..62b1ca1fd9e5db192d02dbb07e37aa09772c91e3 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '4.14';
+our $VERSION = '4.15';
 
 use utf8;
 use DateTime;
@@ -373,7 +373,7 @@ B<hafas-m> [B<-d> I<date>] [B<-t> I<time>] [B<-m> I<motlist>]
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 347c332bf74bf770160d9314353855c8a715d532..2050f5ca658e29b36b81b50017afd14950f1d93b 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 = '4.14';
+our $VERSION = '4.15';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index e2c23c80b6f16ca78ea3b10e89451c443083120d..7932f9b0f3ddb213808c871b34dc875a3a7b2642 100644
--- a/lib/Travel/Status/DE/HAFAS.pm
+++ b/lib/Travel/Status/DE/HAFAS.pm
@@ -22,7 +22,7 @@ use Travel::Status::DE::HAFAS::Journey;
 use Travel::Status::DE::HAFAS::StopFinder;
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '4.14';
+our $VERSION = '4.15';
 
 # {{{ Endpoint Definition
 
@@ -903,7 +903,7 @@ monitors
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index d856232b95a319dcec29686fdf0e476bc215f13d..d9c1be19a39fd6f2116b3f7847824776f0edad25 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -13,7 +13,7 @@ use DateTime::Format::Strptime;
 use List::Util qw(any);
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '4.14';
+our $VERSION = '4.15';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -467,7 +467,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index dfdecf0a5bb732f003021114fec36b53ee37343b..8a5b5714384bf1ad9e400fedc22ac8ecdb5a9fde 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 = '4.14';
+our $VERSION = '4.15';
 
 Travel::Status::DE::HAFAS::Message->mk_ro_accessors(
 	qw(short text code prio is_him ref_count));
@@ -45,7 +45,7 @@ Travel::Status::DE::HAFAS::Message - An arrival/departure-related message.
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm
index 05c262d37467ae02071d742bd00871a913be59c1..2023a6bc397f0a17e3f448caeb7ec53ec71ac1a8 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 = '4.14';
+our $VERSION = '4.15';
 
 # 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 f0dae747e9457446472a50fd6debf633b99fe6a7..d48c0966954f3c329715be00b192962122c63345 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 = '4.14';
+our $VERSION = '4.15';
 
 Travel::Status::DE::HAFAS::Stop->mk_ro_accessors(
 	qw(eva name lat lon distance_m weight));
@@ -76,7 +76,7 @@ Travel::Status::DE::HAFAS::Stop - Information about a HAFAS stop.
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index a4edc742163e433209f32e435254d8a6a8843c06..7087f83b6d890917899ed968297249b1a0fdfc88 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 = '4.14';
+our $VERSION = '4.15';
 
 # {{{ Constructors
 
@@ -182,7 +182,7 @@ finder services
 
 =head1 VERSION
 
-version 4.14
+version 4.15
 
 =head1 DESCRIPTION