diff --git a/Changelog b/Changelog
index 6fb22dcbb0bd6e62a71fc6a044870c72773e4e3e..fb1822da43683d4f0501cc4bcc737a2e97abc95c 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,8 @@
+Travel::Status::DE::IRIS 1.22 - Sun Dec 16 2018
+
+    * Add delay code 4 (unforeseen staff shortage, thanks to Fabian Schwarz)
+    * Add delay code (technical failure in carriage, thanks to @marudor)
+
 Travel::Status::DE::IRIS 1.21 - Sun Sep 09 2018
 
     * Fix crash when receiving invalid XML due to network issues
diff --git a/bin/db-iris b/bin/db-iris
index b9d556d62fe3e3efc596316fc4ad085334c2642e..5ed19cd5be1bb47c61ecb41a13db6fa84007e982 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -6,7 +6,7 @@ use utf8;
 
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 
 use DateTime;
 use DateTime::Format::Strptime;
@@ -533,7 +533,7 @@ B<db-iris> [B<-rx>] [B<-d> I<date>] [B<-o> I<output-flags>]
 
 =head1 VERSION
 
-version 1.21
+version 1.22
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index ae7b3fbd440a79b66156540e36a4e56999dcc62a..d8ae0bf4ff270e31086352922c68dd5e357121aa 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -6,7 +6,7 @@ use 5.014;
 
 no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 
 use Carp qw(confess cluck);
 use DateTime;
@@ -603,7 +603,7 @@ Travel::Status::DE::IRIS - Interface to IRIS based web departure monitors.
 
 =head1 VERSION
 
-version 1.21
+version 1.22
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 2ff4aa180e2657259571f2efe93558cd20e7bc8a..530aab11e2cec0f4174eac8e8f6ba3bea947e71a 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -15,7 +15,7 @@ use List::Compare;
 use List::MoreUtils qw(none uniq firstval);
 use Scalar::Util qw(weaken);
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 
 my %translation = (
 	2  => 'Polizeiliche Ermittlung',
@@ -803,7 +803,7 @@ arrival/departure received by Travel::Status::DE::IRIS
 
 =head1 VERSION
 
-version 1.21
+version 1.22
 
 =head1 DESCRIPTION
 
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm b/lib/Travel/Status/DE/IRIS/Stations.pm
index 9c182316478595c60fc3a1b0f554916db641c40b..4206a8e4a34af1d6b41573474818ef482038be41 100644
--- a/lib/Travel/Status/DE/IRIS/Stations.pm
+++ b/lib/Travel/Status/DE/IRIS/Stations.pm
@@ -17,7 +17,7 @@ use Text::LevenshteinXS qw(distance);
 
 # TODO switch to Text::Levenshtein::XS once AUR/Debian packages become available
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 
 my @stations = (