--- deliantra/Deliantra-Client/DC.pm	2006/04/07 20:34:44	1.6
+++ deliantra/Deliantra-Client/DC.pm	2006/04/07 20:55:32	1.7
@@ -115,12 +115,12 @@
 sub new_from_ttf {
    my ($class, $ttf, $text) = @_;
 
-   utf8::upgrade $text;
+   utf8::encode $text;
 
    my $surface = SDL::TTFRenderUTF8Blended $ttf, $text,
       (new SDL::Color -r => 255, -g => 255, -b => 255);
 
-   $class->new_from_surface ($surface)
+   $class->new_from_surface (bless \$surface, SDL::Surface::)
 }
 
 sub upload {