--- a/Lib/IMPL/Web/Application/Response.pm	Mon Mar 15 17:45:13 2010 +0300
+++ b/Lib/IMPL/Web/Application/Response.pm	Tue Mar 16 17:36:13 2010 +0300
@@ -37,7 +37,16 @@
 	
 	$this->query(CGI->new($this->query() | {})) unless $this->query;
 	
-	$this->streamOut(*STDOUT) unless $this->streamOut;
+	if (lc $this->streamOut eq 'memory') {
+		my $dummy = '';
+		open my $hout, '>:encoding(utf8)', \$dummy or die new IMPL::Exception("Failed to create memory stream",$!);
+		$this->streamOut($hout);
+	} elsif (not $this->streamOut) {
+		$this->streamOut(*STDOUT);	
+	} else {
+		die new IMPL::InvalidArgumentException("Invalid parameter value",$this->streamOut);
+	}
+	
 	$this->buffered(1) unless defined $this->buffered;
 	binmode $this->streamOut, ":encoding(".$this->charset.")";
 }