--- a/VersionDiffBrowser.st	Wed May 23 09:03:48 2018 +0200
+++ b/VersionDiffBrowser.st	Wed May 23 11:34:17 2018 +0200
@@ -2022,11 +2022,21 @@
 !
 
 hasNextVersionInVersionList
-    ^ self selectedVersionIndexHolder value > 1.
+    "versions are sorted youngest first.
+     If the current selected one is the first, there is no next version"
+     
+    ^ (self selectedVersionIndexHolder value ? 0) > 1.
+
+    "Modified (comment): / 23-05-2018 / 11:33:29 / Claus Gittinger"
 !
 
 hasPreviousVersionInVersionList 
-    ^ self selectedVersionIndexHolder value < versionList value size.
+    "versions are sorted youngest first.
+     If the current selected one is the last, there is no previous version"
+
+    ^ (self selectedVersionIndexHolder value ? 0) < versionList value size.
+
+    "Modified: / 23-05-2018 / 11:33:59 / Claus Gittinger"
 !
 
 showingClassChangeSet