diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm
index 6b2abbe01..b7d53e37e 100755
--- a/FHEM/10_CUL_HM.pm
+++ b/FHEM/10_CUL_HM.pm
@@ -1909,12 +1909,12 @@ sub CUL_HM_Parse($$) {#########################################################
               $plc = 1 if ($pl && $plc <= 0);
               $vs = ($plc ne $vl)?"chn:$vs  phys:$plc":$vs;
               push @evtEt,[$vh,1,"state:$vs"];
-              push @evtEt,[$vh,1,"phyLevel:$plc"];
+              push @evtEt,[$vh,1,"phyLevel:$pl"];
             }
+            push @evtEt,[$mh{cHash},1,"phyLevel:$pl"];      #phys level,don't use relative adjustment
             $pl = (($pl-$lvlMin)<=0 && $pl)
-                     ? 1
+                     ? ($pl?1:0)
                      : int((($pl-$lvlMin)*200)/($lvlMax - $lvlMin))/2;
-            push @evtEt,[$mh{cHash},1,"phyLevel:$pl"];      #phys level
             $physLvl = $pl;
           }
           else{                                #invalid PhysLevel
@@ -1924,16 +1924,22 @@ sub CUL_HM_Parse($$) {#########################################################
         }
       }
       my $pVal = $val;# necessary for oper 'off', not logical off
-      $val = (($val-$lvlMin)<=0 && $val)
-                  ? 1
+      Log 1,"General $val-$lvlMin";
+      $val = (($val-$lvlMin)<=0)
+                  ? ($val?1:0)
                   : int((($val-$lvlMin)*200)/($lvlMax - $lvlMin))/2;
+      Log 1,"General $val-$lvlMin";
 
       # blind option: reverse Level Meaning 0 = open, 100 = closed
       if (AttrVal($mh{cName}, "param", "") =~ m/levelInverse/){;
         $pVal = $val = 100-$val;
       }
-      $physLvl = ReadingsVal($mh{cName},"phyLevel",$val)
-            if(!defined $physLvl);             #not updated? use old or ignore
+      if(!defined $physLvl){             #not updated? use old or ignore
+        $physLvl = ReadingsVal($mh{cName},"phyLevel",$val);
+        $physLvl = (($physLvl-$lvlMin)<=0 && $physLvl)
+                 ? ($physLvl?1:0)
+                 : int((($physLvl-$lvlMin)*200)/($lvlMax - $lvlMin))/2;
+      }
 
       my $vs = ($mh{cHash}->{helper}{lm} && $mh{cHash}->{helper}{lm}{$val})
                      ?$mh{cHash}->{helper}{lm}{$val}
@@ -4441,15 +4447,14 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     else{
       $lvl =~ s/(\d*\.?\d*).*/$1/;
       if ($cmd eq "pct"){
-        $lvl = $lvlMin + $lvl*($lvlMax-$lvlMin)/100;
       }
       else{#dim [<changeValue>] ... [ontime] [ramptime]
         $lvl = 10 if (!defined $a[2]); #set default step
-        $lvl = $lvl*($lvlMax-$lvlMin)/100;
         $lvl = -1*$lvl if (($cmd eq "down" && !$lvlInv)|| 
                            ($cmd ne "down" && $lvlInv));
         $lvl += CUL_HM_getChnLvl($name);
       }
+      $lvl = $lvlMin + $lvl*($lvlMax-$lvlMin)/100; # relativ to range
       $lvl = ($lvl > $lvlMax)?$lvlMax:(($lvl <= $lvlMin)?0:$lvl);
     }
     if ($st eq "dimmer"){# at least blind cannot stand ramp time...
diff --git a/FHEM/98_HMinfo.pm b/FHEM/98_HMinfo.pm
index 65dcaa7ea..ebde05bee 100644
--- a/FHEM/98_HMinfo.pm
+++ b/FHEM/98_HMinfo.pm
@@ -1877,6 +1877,7 @@ sub HMinfo_loadConfig($@) {####################################################
       next if (!$rla[0]);
       my $rl = join",",@rla;
       $reg =~ s/(RegL_0.):/$1\./;# conversion - : not allowed anymore. Update old versions
+      $reg =~ s/_chn-00//; # special: 
       my $r2 = $reg;
       $r2 =~ s/^\.//;
       next if ($rl !~ m/$r2/);
@@ -1899,6 +1900,7 @@ sub HMinfo_loadConfig($@) {####################################################
       }
     }
   }
+
   close(rFile);
   foreach my $eN (keys %changes){
     foreach my $reg (keys %{$changes{$eN}}){
@@ -1906,7 +1908,8 @@ sub HMinfo_loadConfig($@) {####################################################
       $defs{$eN}{READINGS}{$reg}{TIME} = $changes{$eN}{$reg}{t};
       my ($list,$pN) = ($1,$2) if ($reg =~ m/RegL_(..)\.(.*)/);
       next if (!$list);
-      my $pId = CUL_HM_peerChId($pN,substr($defs{$eN}{DEF},0,6));
+      my $pId = CUL_HM_name2Id($pN);# allow devices also as peer. Regfile is korrekt
+      # my $pId = CUL_HM_peerChId($pN,substr($defs{$eN}{DEF},0,6));#old - removed
       CUL_HM_updtRegDisp($defs{$eN},$list,$pId);
       push @el,"$eN reg list:$reg";    
     }