From 4010f3623886f0a5cb3b690715c64d0b89ed9b65 Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Thu, 29 Sep 2016 19:12:26 -0400
Subject: [PATCH] Ensured tape-formatted PRGs reach a conclusion.

---
 Storage/Tape/Formats/TapePRG.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Storage/Tape/Formats/TapePRG.cpp b/Storage/Tape/Formats/TapePRG.cpp
index 4013960f3..7bba22e35 100644
--- a/Storage/Tape/Formats/TapePRG.cpp
+++ b/Storage/Tape/Formats/TapePRG.cpp
@@ -168,7 +168,7 @@ void PRG::get_next_output_token()
 			case FilePhaseData:
 				_copy_mask ^= 0x80;
 				fseek(_file, 2, SEEK_SET);
-				if(_copy_mask) reset();
+				if(_copy_mask) _filePhase = FilePhaseAtEnd;
 			break;
 		}
 		return;