diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index b6b4c5b17..022bee253 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4227,6 +4227,7 @@ readingsEndUpdate($$)
         Log 1, $value;
         $result= $value;
       } elsif(!defined($value)) {
+        $cmdFromAnalyze = $perlCode; # For the __WARN__ sub
         warn("$name userReadings $reading evaluated to undef");
         next;
       } elsif($modifier eq "none") {