From 84d0e9b4cd25fe093c1bccbb5b206f57a6a07cbc Mon Sep 17 00:00:00 2001
From: Thomas Harte <thomas.harte@gmail.com>
Date: Thu, 6 Jul 2017 22:31:45 -0400
Subject: [PATCH] Accept a pulse that begins exactly on seek_time as being
 found while seeking.

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

diff --git a/Storage/Tape/Tape.cpp b/Storage/Tape/Tape.cpp
index b5907a078..3fef2973e 100644
--- a/Storage/Tape/Tape.cpp
+++ b/Storage/Tape/Tape.cpp
@@ -22,7 +22,7 @@ TapePlayer::TapePlayer(unsigned int input_clock_rate) :
 void Storage::Tape::Tape::seek(Time &seek_time) {
 	current_time_.set_zero();
 	next_time_.set_zero();
-	while(next_time_ < seek_time) get_next_pulse();
+	while(next_time_ <= seek_time) get_next_pulse();
 }
 
 void Storage::Tape::Tape::reset() {