--- deliantra/Deliantra-Client/DC.pm	2006/05/23 23:14:44	1.60
+++ deliantra/Deliantra-Client/DC.pm	2006/05/24 21:49:58	1.61
@@ -54,7 +54,8 @@
    return unless $GL_DEBUG;
 
    if (my $error = glGetError) {
-      Carp::cluck sprintf "opengl error %x while %s", $error, &sprintf(@_);
+      my ($format, @args) = @_;
+      Carp::cluck sprintf "opengl error %x while $format", $error, @args;
    }
 }