diff --git a/fhem/FHEM/96_allowed.pm b/fhem/FHEM/96_allowed.pm
index 4489303d8..8561c82a8 100644
--- a/fhem/FHEM/96_allowed.pm
+++ b/fhem/FHEM/96_allowed.pm
@@ -21,6 +21,7 @@ allowed_Initialize($)
   $hash->{AuthenticateFn} = "allowed_Authenticate";
   $hash->{SetFn}    = "allowed_Set";
   $hash->{AttrFn}   = "allowed_Attr";
+  $hash->{RenameFn} = "allowed_Rename";
   no warnings 'qw';
   my @attrList = qw(
     allowedCommands
@@ -79,6 +80,13 @@ allowed_Undef($$)
   return undef;
 }
 
+sub
+allowed_Rename($$)
+{
+  $auth_refresh = 1;
+  return undef;
+}
+
 #####################################
 # Return 0 for don't care, 1 for Allowed, 2 for forbidden.
 sub
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 0d6f2f43d..9102a475a 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -3791,6 +3791,7 @@ CallFn(@)
   if(!$d || !$defs{$d}) {
     $d = "<undefined>" if(!defined($d));
     Log 0, "Strange call for nonexistent $d: $n";
+    stacktrace();
     return undef;
   }
   if(!$defs{$d}{TYPE}) {