diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 0aee64e1b..0d53ba8b7 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -1088,6 +1088,7 @@ sub CUL_HM_Parse($$) {#########################################################
                                    $mh{dst}));
   if(!$mh{devH} && $mh{mTp} eq "00") { # generate device
     my $sname = "HM_$mh{src}";
+    Log 1,"General ###111### CUL_HM Unknown device $sname is now defined";
     Log3 undef, 2, "CUL_HM Unknown device $sname is now defined";
     DoTrigger("global","UNDEFINED $sname CUL_HM $mh{src}");
     $mh{devH}  = CUL_HM_id2Hash($mh{src}); #sourcehash - changed to channel entity
@@ -1463,7 +1464,7 @@ sub CUL_HM_Parse($$) {#########################################################
       push @evtEt,[$mh{cHash},1,"storm:$txt"];
       push @evtEt,[$mh{devH} ,1,"trig_$mh{chnHx}:$mh{dstN}"];
       my $err = $chn & 0x80;
-      push @evtEt,[$mh{devH},1,"battery:". ($err?"low"  :"ok"  )] if {$mh{md} eq "HM-WDS100-C6-O-2"}; #has no battery
+      push @evtEt,[$mh{devH},1,"battery:". ($err?"low"  :"ok"  )] if ($mh{md} eq "HM-WDS100-C6-O-2"); #has no battery
     }
     else {
       push @evtEt,[$mh{shash},1,"unknown:$mh{p}"];
@@ -3125,10 +3126,13 @@ sub CUL_HM_parseCommon(@){#####################################################
   }
 
   elsif($mhp->{mTp} eq "00"){######################################
+    Log 1,"General ############parseme";
     if ($devHlpr->{supp_Pair_Rep}){# repeated  # Change noansi, don`t let the user press pair button forever if first pair try failed
       $devHlpr->{supp_Pair_Rep} = 0; # noansi: reset flag, suppress only once not to lockup if device answer is not received
+    Log 1,"General ############parseme no more";
       return "done";  # suppress handling of a repeated pair request
     }
+    Log 1,"General ############parseme 2";
     $devHlpr->{supp_Pair_Rep} = 1; # noansi: suppress next handling of a repeated pair request (if nothing else arrives in between from device)
 
     my $paired = 0; #internal flag
@@ -3139,6 +3143,7 @@ sub CUL_HM_parseCommon(@){#####################################################
     my $ioOwn = InternalVal($ioN,"owner_CCU","");
     my $hmPair = InternalVal($ioN,"hmPair"      ,InternalVal($ioOwn,"hmPair"      ,0 ));
     my $hmPser = InternalVal($ioN,"hmPairSerial",InternalVal($ioOwn,"hmPairSerial",""));
+    Log 1,"General ############parseme 3 :$ioOwn:$hmPair:$hmPser";
     if ( $hmPair ){# pairing is active
       if (!$hmPser || $hmPser eq ReadingsVal($mhp->{devN},"D-serialNr","")){
 
@@ -3149,6 +3154,10 @@ sub CUL_HM_parseCommon(@){#####################################################
                       ."$attr{$mhp->{devN}}{subType}, "
                       ."model $attr{$mhp->{devN}}{model} "
                       ."serialNr ".ReadingsVal($mhp->{devN},"D-serialNr","");
+        Log 1,"General######CUL_HM pair: $mhp->{devN} "
+                      ."$attr{$mhp->{devN}}{subType}, "
+                      ."model $attr{$mhp->{devN}}{model} "
+                      ."serialNr ".ReadingsVal($mhp->{devN},"D-serialNr","");
         CUL_HM_RemoveHMPair("hmPairForSec:$ioOwn");# just in case...
         delete $ioHash->{hmPair};
         delete $ioHash->{hmPairSerial};