--- trunk/lib/Frey/Server.pm	2008/11/29 22:02:08	627
+++ trunk/lib/Frey/Server.pm	2008/11/29 22:43:13	628
@@ -36,8 +36,8 @@
 
 sub print {
 	my $self = shift;
-	warn "# print ",dump( @_ );
-	$self->{print}->( @_ );
+	warn "# print ", join(' ', map { length $_ } @_ );
+	$self->{_print}->( @_ );
 }
 
 sub request {