diff --git a/netcfg.changes b/netcfg.changes
index e48ea45..8a777cc 100644
--- a/netcfg.changes
+++ b/netcfg.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Tue Mar  7 09:57:12 UTC 2017 - tchvatal@suse.com
+
+- Update script to generage services to use UTF8 by default
+- Update the services list with latest content
+
 -------------------------------------------------------------------
 Tue Jan  5 10:09:05 UTC 2016 - tchvatal@suse.com
 
diff --git a/netcfg.spec b/netcfg.spec
index 4ddd2ec..148726d 100644
--- a/netcfg.spec
+++ b/netcfg.spec
@@ -1,7 +1,7 @@
 #
 # spec file for package netcfg
 #
-# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2017 SUSE LINUX GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
diff --git a/services-create.pl b/services-create.pl
index 01f48fa..4cb70af 100644
--- a/services-create.pl
+++ b/services-create.pl
@@ -1,14 +1,17 @@
 #!/usr/bin/perl -w
 
 use strict;
-
+use utf8;
 use XML::LibXML::Reader;
 
+binmode( STDOUT, 'utf8:' );
+
 my $portsurl = 'http://www.iana.org/assignments/service-names-port-numbers/service-names-port-numbers.xml';
 my $servicesfile = 'services.new';
 my $reader = XML::LibXML::Reader->new(location => $portsurl)
          or die "cannot read $portsurl\n";
 open(SERVICESNEW, ">$servicesfile") or die "cannot write $servicesfile\n";
+binmode(SERVICESNEW, 'utf8:');
 
 while ($reader->read) {
   processNode($reader);
diff --git a/services.bz2 b/services.bz2
index 0e00f57..6b65377 100644
--- a/services.bz2
+++ b/services.bz2
@@ -1,3 +1,3 @@
 version https://git-lfs.github.com/spec/v1
-oid sha256:de4cd5b8ae60f2f9417f7794b47a60864bbb634332b105d51b46a43396288e07
-size 172335
+oid sha256:18c6365d97d7a19d1861c1dddff5cce118b0bdd533c558f756a9ea6dd6c2a0e6
+size 175160