--- Screen.pm	2007/09/30 20:13:10	190
+++ Screen.pm	2008/04/14 19:55:29	209
@@ -221,6 +221,7 @@
 =head2 render_mem
 
   $self->render_mem( @mem );
+  $self->render_mem( $memory_bytes );
 
 =cut
 
@@ -229,7 +230,12 @@
 
 	return unless $self->show_mem;
 
-	my $pixels = pack("C*", @_);
+	my $pixels;
+	if ( $# > 0 ) {
+		$pixels = pack("C*", @_);
+	} else {
+		$pixels = shift;
+	}
 
 	my $vram = SDL::Surface->new(
 		-width => 256,