diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
index 03c8d3e63..4937b53ed 100755
--- a/fhem/FHEM/00_HMLAN.pm
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -747,9 +747,11 @@ sub HMLAN_SimpleWrite(@) {#####################################################
       my $chn = substr($msg,52,2);
       if (!$hDst->{chn} || $hDst->{chn} ne $chn){
         my $updt = $modules{CUL_HM}{defptr}{$dst}{helper}{io}{newChn};
-        Log3 $hash,  HMLAN_getVerbLvl($hash,$src,$dst,"5")
+        if ($updt){
+          Log3 $hash,  HMLAN_getVerbLvl($hash,$src,$dst,"5")
                   , 'HMLAN_Send:  '.$name.' S:'.$updt;
-        syswrite($hash->{TCPDev}, $updt."\r\n")     if($hash->{TCPDev});
+          syswrite($hash->{TCPDev}, $updt."\r\n")     if($hash->{TCPDev});
+        }
       }
       $hDst->{chn} = $chn;
     }
diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index bbcc7e598..68ecb83d4 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -1143,12 +1143,12 @@ sub CUL_HM_Parse($$) {#########################################################
   elsif($md =~ m/HM-CC-RT-DN/) { ##############################################
     my %ctlTbl=( 0=>"auto", 1=>"manu", 2=>"party",3=>"boost");
     if   ($mTp eq "10" && $p =~ m/^0A(....)(..)(..)(..)/) {#info-level
-      my ($chn,$setTemp,$actTemp,$err,$bat,$vp,$ctrlMode) =
-          ("04",hex($1),hex($1),hex($2),hex($2),hex($3), hex($4));
+      my ($chn,$setTemp,$err,$vp,$ctrlMode) =
+          ("04",hex($1),hex($2),hex($3), hex($4));
+      my $actTemp =(($setTemp        ) & 0x3ff)/10;
       $setTemp    =(($setTemp    >>10) & 0x3f )/2;
-      $actTemp    =(($actTemp        ) & 0x3ff)/10;
+      my $bat     =(($err            ) & 0x1f)/10+1.5;
       $err        = ($err        >> 5) & 0x7  ;
-      $bat        =(($bat            ) & 0x1f)/10+1.5;
       $vp         = ($vp             ) & 0x7f ;
       my $uk0     = ($ctrlMode       ) & 0x3f ;#unknown
       $ctrlMode   = ($ctrlMode   >> 6) & 0x3  ;