diff --git a/fhem/CHANGED b/fhem/CHANGED
index 7c6effeaa..0d82d7282 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  22_HOMEMODE: Use of uninitialized value $d in hash element
+             minor commandref fix
   - new:     22_HOMEMODE: initial SVN check-in v1.0.0
   - bugfix:  74_AMAD: fix Use of uninitialized value,no Flowset update nececcary
   - feature: 34_ESPEasy: added ESPEasy commands: tone and rtttl
diff --git a/fhem/FHEM/22_HOMEMODE.pm b/fhem/FHEM/22_HOMEMODE.pm
index 900ac1a83..b2091c3c7 100644
--- a/fhem/FHEM/22_HOMEMODE.pm
+++ b/fhem/FHEM/22_HOMEMODE.pm
@@ -2198,7 +2198,7 @@ sub HOMEMODE_TriggerState($;$$$)
   my $amode = ReadingsVal($name,"modeAlarm","");
   foreach my $sensor (devspec2array($contacts))
   {
-    my ($oread,$tread) = split " ",AttrVal($_,"HomeReadings",AttrVal($name,"HomeSensorsContactReadings","state sabotageError")),2;
+    my ($oread,$tread) = split " ",AttrVal($sensor,"HomeReadings",AttrVal($name,"HomeSensorsContactReadings","state sabotageError")),2;
     my $otcmd = AttrVal($sensor,"HomeValues",AttrVal($name,"HomeSensorsContactValues","open|tilted|on"));
     my $amodea = AttrVal($sensor,"HomeModeAlarmActive","-");
     my $ostate = ReadingsVal($sensor,$oread,"");
@@ -2247,7 +2247,7 @@ sub HOMEMODE_TriggerState($;$$$)
   }
   foreach my $sensor (devspec2array($motions))
   {
-    my ($oread,$tread) = split " ",AttrVal($_,"HomeReadings",AttrVal($name,"HomeSensorsMotionReadings","state sabotageError")),2;
+    my ($oread,$tread) = split " ",AttrVal($sensor,"HomeReadings",AttrVal($name,"HomeSensorsMotionReadings","state sabotageError")),2;
     my $otcmd = AttrVal($sensor,"HomeValues",AttrVal($name,"HomeSensorsMotionValues","open|on"));
     my $amodea = AttrVal($sensor,"HomeModeAlarmActive","-");
     my $ostate = ReadingsVal($sensor,$oread,"");