diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index fb09429aa..c22adda04 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1110,8 +1110,10 @@ AnalyzePerlCommand($$;$)
 
   $cmdFromAnalyze = $cmd;
   my $ret = eval $cmd;
-  Log 1, "ERROR evaluating $cmd: $@" if($@);
-  $ret = $@ if($@);
+  if($@) {
+    $ret = $@;
+    Log 1, "ERROR evaluating $cmd: $ret";
+  }
   $cmdFromAnalyze = undef;
   return $ret;
 }