diff --git a/Changelog b/Changelog
index fc6868eba49d5ca4d070cc27f81ad33ad3a5c0f9..f448bc86b08e56ec30e02c69de4e9636969e44aa 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,8 @@
+Travel::Status::DE::DeutscheBahn 4.13 - Mon Aug 21 2023
+
+    * new_p: Return a Travel::Status::DE::HAFAS instance in addition to the
+      error message when rejecting a promise after receiving a HAFAS reply
+
 Travel::Status::DE::DeutscheBahn 4.12 - Mon May 29 2023
 
     * Fix Journey->route and HAFAS geoSearch / locationSearch returning
diff --git a/bin/hafas-m b/bin/hafas-m
index 27b9c7f4db1a0eeeb37b5f2951c515c529c151c6..9dc67b42e48800c98d786ea044a4dfff845f6c47 100755
--- a/bin/hafas-m
+++ b/bin/hafas-m
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use 5.014;
 
-our $VERSION = '4.12';
+our $VERSION = '4.13';
 
 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.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 34d086a1802a45dd70bcd7267b2e292cc6cfc4c5..d4351fed88c166769800e3a1ecfbae01f3ea885d 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.12';
+our $VERSION = '4.13';
 
 sub new {
 	my ( $class, %opt ) = @_;
@@ -49,7 +49,7 @@ monitor operated by Deutsche Bahn
 
 =head1 VERSION
 
-version 4.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS.pm b/lib/Travel/Status/DE/HAFAS.pm
index dcdd1652c06000d2734c0da827b66602fcea0cdc..691d859fa39b6df58aa0183c8352674000e1180d 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.12';
+our $VERSION = '4.13';
 
 # {{{ Endpoint Definition
 
@@ -903,7 +903,7 @@ monitors
 
 =head1 VERSION
 
-version 4.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 88edf4ba0d395bf5238ff047c4b3624ef8db78de..9dd556113071ee005fac5b1b4df28c0d37178914 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -12,7 +12,7 @@ use parent 'Class::Accessor';
 use List::Util qw(any);
 use Travel::Status::DE::HAFAS::Stop;
 
-our $VERSION = '4.12';
+our $VERSION = '4.13';
 
 Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
 	qw(datetime sched_datetime rt_datetime
@@ -461,7 +461,7 @@ journey received by Travel::Status::DE::HAFAS
 
 =head1 VERSION
 
-version 4.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Message.pm b/lib/Travel/Status/DE/HAFAS/Message.pm
index 35af63481b26587037d1e2122b40a101bfaddfa6..b723c9de12040152d2c1ac0eb9ba5f1bf95b5155 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.12';
+our $VERSION = '4.13';
 
 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.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/Polyline.pm b/lib/Travel/Status/DE/HAFAS/Polyline.pm
index 053572727415a3b63c5323b87699bebebf932655..1e0729d1c1dc5ad52dafd299dd86291da1739697 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.12';
+our $VERSION = '4.13';
 
 # 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 e30849eee39438c27ea07f040002b9c7f69cee37..b43f13b18005c9873fdcdb45dd20cb8452939e23 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.12';
+our $VERSION = '4.13';
 
 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.12
+version 4.13
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/HAFAS/StopFinder.pm b/lib/Travel/Status/DE/HAFAS/StopFinder.pm
index 667e88c4cab8b8f852b150b5207ea7c1ac85b262..fb986503eea283197c6093230ea2517396cd26ce 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.12';
+our $VERSION = '4.13';
 
 # {{{ Constructors
 
@@ -182,7 +182,7 @@ finder services
 
 =head1 VERSION
 
-version 4.12
+version 4.13
 
 =head1 DESCRIPTION