--- deliantra/Deliantra-Client/DC.pm	2008/01/19 04:55:42	1.173
+++ deliantra/Deliantra-Client/DC.pm	2008/05/06 14:37:13	1.180
@@ -17,7 +17,7 @@
 use Carp ();
 
 BEGIN {
-   $VERSION = '0.9965';
+   $VERSION = '0.9971';
 
    use XSLoader;
    XSLoader::load "Deliantra::Client", $VERSION;
@@ -166,13 +166,13 @@
 }
 
 sub write_cfg {
-   my ($file) = @_;
+   my $file = "$Deliantra::VARDIR/client.cf";
 
    $::CFG->{VERSION} = $::VERSION;
 
    open my $fh, ">:utf8", $file
       or return;
-   print $fh encode_json $::CFG;
+   print $fh JSON::XS->new->utf8->pretty->encode ($::CFG);
 }
 
 sub http_proxy {