diff --git a/fhem/CHANGED b/fhem/CHANGED
index e3df22fca..2201bf267 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it. 
+ - change:  88_HMCCU: Fixed bug in GetDutyCycle
  - change:  88_HMCCU: Fixed substitute and authentication
  - change:  93_DbRep: Improvement of markouts in special cases, Forum:#134973
  - bugfix:  36_ShellyMonitor: Change written reading from relay_0 to state 
diff --git a/fhem/FHEM/88_HMCCU.pm b/fhem/FHEM/88_HMCCU.pm
index 88f792d31..3010d1443 100755
--- a/fhem/FHEM/88_HMCCU.pm
+++ b/fhem/FHEM/88_HMCCU.pm
@@ -57,7 +57,7 @@ my %HMCCU_CUST_CHN_DEFAULTS;
 my %HMCCU_CUST_DEV_DEFAULTS;
 
 # HMCCU version
-my $HMCCU_VERSION = '5.0 232641921';
+my $HMCCU_VERSION = '5.0 232691829';
 
 # Timeout for CCU requests (seconds)
 my $HMCCU_TIMEOUT_REQUEST = 4;
@@ -10539,12 +10539,25 @@ sub HMCCU_GetDutyCycle ($)
 	
 	my $dc = 0;
 	my $interfaces = HMCCU_GetRPCInterfaceList ($hash);
-	my %readings;
+	my %readings = ();
 	
 	foreach my $port (values %$interfaces) {
 		next if ($port != 2001 && $port != 2010);
-		my ($url, $auth) = HMCCU_BuildURL ($hash, $port) // next;
-		my $rpcclient = RPC::XML::Client->new ($url);
+		my ($url, $auth) = HMCCU_BuildURL ($hash, $port);
+		if ($url eq '') {
+			HMCCU_Log ($hash, 2, "Cannot get RPC URL for port $port");
+			next;
+		}
+
+		my $header = HTTP::Headers->new ('Connection' => 'Keep-Alive');
+		$header->header('Authorization' => "Basic $auth") if ($auth) ne '';
+		my $rpcclient = RPC::XML::Client->new ($url,
+			useragent => [
+				ssl_opts => { verify_hostname => 0, SSL_verify_mode => 0 }
+			]
+		);
+		$rpcclient->useragent->default_headers($header);
+
 		my $response = $rpcclient->simple_request ('listBidcosInterfaces');
 		next if (!defined($response) || ref($response) ne 'ARRAY');
 		foreach my $iface (@$response) {
diff --git a/fhem/FHEM/88_HMCCUCHN.pm b/fhem/FHEM/88_HMCCUCHN.pm
index d4f1b3206..c842ffa15 100644
--- a/fhem/FHEM/88_HMCCUCHN.pm
+++ b/fhem/FHEM/88_HMCCUCHN.pm
@@ -30,7 +30,7 @@ sub HMCCUCHN_Set ($@);
 sub HMCCUCHN_Get ($@);
 sub HMCCUCHN_Attr ($@);
 
-my $HMCCUCHN_VERSION = '5.0 232641921';
+my $HMCCUCHN_VERSION = '5.0 232691829';
 
 ######################################################################
 # Initialize module
diff --git a/fhem/FHEM/88_HMCCUDEV.pm b/fhem/FHEM/88_HMCCUDEV.pm
index e131ce972..62af05bb3 100644
--- a/fhem/FHEM/88_HMCCUDEV.pm
+++ b/fhem/FHEM/88_HMCCUDEV.pm
@@ -31,7 +31,7 @@ sub HMCCUDEV_Set ($@);
 sub HMCCUDEV_Get ($@);
 sub HMCCUDEV_Attr ($@);
 
-my $HMCCUDEV_VERSION = '5.0 232641921';
+my $HMCCUDEV_VERSION = '5.0 232691829';
 
 ######################################################################
 # Initialize module
diff --git a/fhem/FHEM/88_HMCCURPCPROC.pm b/fhem/FHEM/88_HMCCURPCPROC.pm
index c14bab0eb..1697d0a5f 100755
--- a/fhem/FHEM/88_HMCCURPCPROC.pm
+++ b/fhem/FHEM/88_HMCCURPCPROC.pm
@@ -39,7 +39,7 @@ use SetExtensions;
 ######################################################################
 
 # HMCCURPC version
-my $HMCCURPCPROC_VERSION = '5.0 232641921';
+my $HMCCURPCPROC_VERSION = '5.0 232691829';
 
 # Maximum number of events processed per call of Read()
 my $HMCCURPCPROC_MAX_EVENTS = 100;
diff --git a/fhem/FHEM/HMCCUConf.pm b/fhem/FHEM/HMCCUConf.pm
index a06463eaf..67ae60e12 100644
--- a/fhem/FHEM/HMCCUConf.pm
+++ b/fhem/FHEM/HMCCUConf.pm
@@ -326,10 +326,9 @@ $HMCCU_CONFIG_VERSION = '5.0';
 #   A Perl function name
 # Datapoint-Def:
 #   No parameters:                   Paramset:Datapoints:[Parameter=]FixedValue[,...]
-#   Toggle command:                  Paramset:Datapoints
 #   One parameter:                   Paramset:Datapoints:?Parameter
 #   Optional parameter with default: Paramset:Datapoints:?Parameter=Default-Value
-#   List of values:                  Paramset:Datapoints:#Parameter[=FixedValue[,...]]
+#   List of values (also toggle):    Paramset:Datapoints:#Parameter[=FixedValue[,...]]
 #   Internal value (paramset "I"):   Paramset:Datapoints:*Parameter=Default-Value
 # Paramset:
 #   V=VALUES, M=MASTER (channel), D=MASTER (device), I=INTERNAL