diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 8d63847b1..cc497b6bc 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4946,8 +4946,14 @@ readingsEndUpdate($$)
       #Debug "Evaluating " . $reading;
       $cmdFromAnalyze = $perlCode;      # For the __WARN__ sub
       my $NAME = $name; # no exceptions, #53069
+
+      my $stopRecursion = ".evalUserReading_$reading";
+      next if($hash->{$stopRecursion}); # No warning / #138149
+      $hash->{$stopRecursion} = 1;
       my $value= eval $perlCode;
+      delete($hash->{$stopRecursion});
       $cmdFromAnalyze = undef;
+
       my $result;
       # store result
       if($@) {