diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index a81b99435..6ccd8a7d9 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -3240,12 +3240,12 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     }
     my $s = 54;
     $l1 =~ s/\\_/ /g;
-    $l1 = substr($l1."\x00", 0, 13);
+    $l1 = substr($l1."\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 13);
     $l1 =~ s/(.)/sprintf(" %02X:%02X",$s++,ord($1))/ge;
 
     $s = 70;
     $l2 =~ s/\\_/ /g;
-    $l2 = substr($l2."\x00", 0, 13);
+    $l2 = substr($l2."\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", 0, 13);
     $l2 =~ s/(.)/sprintf(" %02X:%02X",$s++,ord($1))/ge;
 
     @a = ($a[0],"regBulk","RegL_01:",split(" ",$l1.$l2));