diff --git a/fhem/FHEM/98_XmlList.pm b/fhem/FHEM/98_XmlList.pm
index 9de4c02fa..62e24b03f 100644
--- a/fhem/FHEM/98_XmlList.pm
+++ b/fhem/FHEM/98_XmlList.pm
@@ -77,8 +77,13 @@ CommandXmlList($$)
         $str .= sprintf("\t\t\t<INT key=\"%s\" value=\"%s\"/>\n",
                         XmlEscape($c), XmlEscape($p->{$c}));
       }
-      $str .= sprintf("\t\t\t<INT key=\"IODev\" value=\"%s\"/>\n",
-                        $p->{IODev}{NAME}) if($p->{IODev} && $p->{IODev}{NAME});
+
+      if($p->{IODev} &&
+         ref($p->{IODev}) eq "HASH" &&
+         $p->{IODev}{NAME}) {
+        $str .= sprintf("\t\t\t<INT key=\"IODev\" value=\"%s\"/>\n",
+                          $p->{IODev}{NAME})
+      }
  
       foreach my $c (sort keys %{$attr{$d}}) {
         next if(!$si && $c =~ m/^\./);