--- VRac.pm	2008/04/14 21:16:19	210
+++ VRac.pm	2008/04/14 21:26:16	211
@@ -272,7 +272,7 @@
 		} elsif ( $c eq '?' ) {
 			my $t = $self->trace ? 'on' : 'off' ;
 			my $d = $self->debug ? 'on' : 'off' ;
-			 <<__USAGE__;
+			print <<__USAGE__;
 Usage:
 
 x|q\t\texit
@@ -282,6 +282,7 @@
 r 42\t\trun 42 instruction opcodes
 t\t\ttrace [$t]
 d\t\tdebug [$d]
+tape name 168\tload tape and start at offset
 
 __USAGE__
 			print $self->tape_status if $self->can('tape_status');
@@ -342,7 +343,7 @@
 			} elsif ( ! -e $v ) {
 				warn "ERROR: tape $v: $!\n";
 			} else {
-				$self->load_tape( $v );
+				$self->load_tape( $v, shift @v );
 			}
 			$last = '';
 		} elsif ( $c =~ m/^t/i ) {