diff --git a/contrib/DoorPi/70_DoorPi.pm b/contrib/DoorPi/70_DoorPi.pm
index 22b3e4179..6e59480c9 100644
--- a/contrib/DoorPi/70_DoorPi.pm
+++ b/contrib/DoorPi/70_DoorPi.pm
@@ -41,7 +41,7 @@ use vars qw{%attr %defs};
 sub Log($$);
 
 #-- globals on start
-my $version = "1.4";
+my $version = "1.41";
 
 #-- these we may get on request
 my %gets = (
@@ -762,11 +762,14 @@ sub DoorPi_GetHistory {
 
   #-- decode call history
   if(ref($jhash0->{"history_event"}) ne 'ARRAY'){
-     Log 1,"[DoorPi_GetHistory] Error - has found an empty event history";
-     return 
+     my $mga="Warning - has found an empty event history";
+     Log 1,"[DoorPi_GetHistory] ".$mga
+     return $mga
   }
   if(ref($khash0->{"history_snapshot"}) ne 'ARRAY'){
-     Log 1,"[DoorPi_GetHistory] Warning - has found an empty snapshot history";
+     my $mga="Warning - has found an empty snapshot history";
+     Log 1,"[DoorPi_GetHistory] ".$mga
+     return $mga
   }
   my @history_event    = ($jhash0)?@{$jhash0->{"history_event"}}:();
   my @history_snapshot = ($khash0)?@{$khash0->{"history_snapshot"}}:();