diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 139ca5f96..eaeceb3e5 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -167,7 +167,7 @@ my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my %duplicate;                  # Pool of received msg for multi-fhz/cul setups
 my $duplidx=0;                  # helper for the above pool
-my $cvsid = '$Id: fhem.pl,v 1.130 2011-02-06 08:30:05 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.131 2011-02-06 08:50:25 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -406,7 +406,7 @@ while (1) {
         sockaddr_in6($clientinfo[1]) :
         sockaddr_in($clientinfo[1]);
     my $caddr = $ipv6 ?
-        inet_ntop(AF_INET6, $iaddr):
+        inet_ntop(AF_INET6(), $iaddr):
         inet_ntoa($iaddr);
     my $af = $attr{global}{allowfrom};
     if($af) {
@@ -1553,7 +1553,7 @@ GlobalAttr($$)
 
     my $server2;
     my @opts = (
-        Domain    => ($ipv6 ? AF_INET6 : AF_UNSPEC), # Linux bug
+        Domain    => ($ipv6 ? AF_INET6() : AF_UNSPEC), # Linux bug
         LocalHost => ($global ? undef : "localhost"),
         LocalPort => $port,
         Listen    => 10,
diff --git a/fhem/webfrontend/pgm2/01_FHEMWEB.pm b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
index 21a14edef..b62f961f9 100755
--- a/fhem/webfrontend/pgm2/01_FHEMWEB.pm
+++ b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
@@ -103,7 +103,7 @@ FW_Define($$)
   }
 
   my @opts = (
-    Domain    => ($hash->{IPV6} ? AF_INET6 : AF_UNSPEC), # Linux bug
+    Domain    => ($hash->{IPV6} ? AF_INET6() : AF_UNSPEC), # Linux bug
     LocalHost => ($global ? undef : "localhost"),
     LocalPort => $port,
     Listen    => 10,
@@ -172,7 +172,7 @@ FW_Read($)
     my %nhash;
     my $cname = "FHEMWEB:".
         ($hash->{IPV6} ?
-                inet_ntop(AF_INET6, $clientsock[1]) :
+                inet_ntop(AF_INET6(), $clientsock[1]) :
                 inet_ntoa($clientsock[1])) .":".$clientsock[0];
     $nhash{NR}    = $devcount++;
     $nhash{NAME}  = $cname;