diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 693e90714..5ecbf862d 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -6020,6 +6020,12 @@ sub CUL_HM_ID2PeerList ($$$) {
         CUL_HM_UpdtReadSingle($hash,"state","peered",0);
       }
     }
+    elsif( ($md =~ m/HM-CC-RT-DN/      && $chn=~ m/(03|06)/)
+         ||($md eq "HM-TC-IT-WM-W-EU"  && $chn=~ m/(03|06)/)){
+      if (AttrVal($hash,"state","unpeered") eq "unpeered"){
+        CUL_HM_UpdtReadSingle($hash,"state","unknown",0);
+      }
+    }
   }
   else{
     delete $hash->{READINGS}{peerList};
@@ -7349,7 +7355,7 @@ sub CUL_HM_qEntity($$){  # add to queue
 
   my $devN = CUL_HM_getDeviceName($name);
   return if (AttrVal($devN,"subType","") eq "virtual");
-  return if ($defs{$devN}{helper}{q}{$q} eq "00"); #already requesting all
+  $name =  $devN if ($defs{$devN}{helper}{q}{$q} eq "00"); #already requesting all
   if ($devN eq $name){#config for all device
     $defs{$devN}{helper}{q}{$q}="00";
   }
diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index b5ac2b888..fb977d749 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1613,13 +1613,13 @@ sub HMinfo_loadConfig($@) {####################################################
   $filter = "." if (!$filter);
   my $ret;
 
-  open(aSave, "$fName") || return("Can't open $fName: $!");
+  open(rFile, "$fName") || return("Can't open $fName: $!");
   my @el = ();
   my @elincmpl = ();
   my @entryNF = ();
   my %changes;
   my @rUpdate;
-  while(<aSave>){
+  while(<rFile>){
     chomp;
     my $line = $_;
     $line =~ s/\r//g;
@@ -1670,7 +1670,7 @@ sub HMinfo_loadConfig($@) {####################################################
                                      $defs{$eN}{READINGS}{$reg}{VAL} !~ m/00:00/);
     }
   }
-  close(aSave);
+  close(rFile);
   foreach my $eN (keys %changes){
     foreach my $reg (keys %{$changes{$eN}}){
       $defs{$eN}{READINGS}{$reg}{VAL} = $changes{$eN}{$reg};
@@ -1752,14 +1752,8 @@ sub HMinfo_saveConfig($) {#####################################################
   my ($param) = @_;
   my ($id,$fN,$opt,$filter,$strict) = split ",",$param;
   $strict = "" if (!defined $strict);
-  my @entities;
   foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
     CUL_HM_Get($defs{$dName},$dName,"saveConfig",$fN,$strict);
-    push @entities,$dName;
-    foreach my $chnId (CUL_HM_getAssChnIds($dName)){
-      my $dName = CUL_HM_id2Name($chnId);
-      push @entities, $dName if($dName !~ m/_chn:/);
-    }
   }
   HMinfo_purgeConfig($param) if (-e $fN && 200000 < -s $fN);# auto purge if file to big
   return $id;