bugfix

1 files changed, 1 insertions, 1 deletions

diff --git a/repgoal.hs b/repgoal.hs
index a342581..7a019db 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -245,7 +245,7 @@ clipSelectedSession :: St -> St
 clipSelectedSession st = st & selectedSession %~ maybeReset
   where
     len = view (sessions . to NESeq.length) st
-    maybeReset n | n < 0 = len
+    maybeReset n | n < 0 = len + n
     maybeReset n | n < len = n
     maybeReset _ | otherwise = 0