diff --git a/fhem/CHANGED b/fhem/CHANGED
index fd44f14f1..165318409 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,6 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
-  - updated: 77_UWZ: New Release 2.4
+    bugfix:  77_UWZ: Perl warnings uninitialized value fixed
+  - updated: 77_UWZ: New Release 2.4.5
                      new Attribut's sort_readings_by,htmlsequence
                      new Readings Warn_X_Creation(_*), WarnUWZLevel,
                                   WarnUWZLevel_Color,WarnUWZLevel_Str
diff --git a/fhem/FHEM/77_UWZ.pm b/fhem/FHEM/77_UWZ.pm
index 2638c9322..4198407bf 100644
--- a/fhem/FHEM/77_UWZ.pm
+++ b/fhem/FHEM/77_UWZ.pm
@@ -60,7 +60,7 @@ use vars qw($readingFnAttributes);
 
 use vars qw(%defs);
 my $MODUL           = "UWZ";
-my $version         = "1.4.5";      # ungerade Entwicklerversion Bsp.: 1.1, 1.3, 2.5
+my $version         = "1.4.6";
 
 my $countrycode = "DE";
 my $plz = "77777";
@@ -922,7 +922,7 @@ sub UWZ_Run($) {
         $i++;
     }
     
-    my $max;
+    my $max=0;
     for (@uwzmaxlevel) {
         $max = $_ if !$max || $_ > $max
     };