--- a/TwoColumnTextView.st	Thu Jul 19 19:00:19 2018 +0200
+++ b/TwoColumnTextView.st	Mon Jul 23 09:52:59 2018 +0200
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libwidg2' }"
 
+"{ NameSpace: Smalltalk }"
+
 SyncedMultiColumnTextView subclass:#TwoColumnTextView
 	instanceVariableNames:'nextPrevButtonPanel'
 	classVariableNames:''
@@ -304,15 +306,22 @@
 !
 
 moveToNextChanged
+    self moveToNextChangedAfter:((textViews at:1) lastLineShown)
+
+    "Modified: / 23-07-2018 / 09:47:10 / Claus Gittinger"
+!
+
+moveToNextChangedAfter:startLine
     |start end|
 
-    start := ((textViews at:1) lastLineShown) + 1.
+    start := startLine + 1.
 
     textViews do:[:v||list max lnNr|
         list := v list.
         max  := list size.
         lnNr := start.
 
+        "/ find the first line which is not a plain string
         [(lnNr > max or:[(list at:lnNr) isText])
         ] whileFalse:[
             lnNr := lnNr + 1
@@ -328,6 +337,8 @@
     end notNil ifTrue:[
         self moveToLine:end
     ].
+
+    "Created: / 23-07-2018 / 09:47:00 / Claus Gittinger"
 !
 
 moveToPreviousChanged
@@ -396,9 +407,10 @@
 !TwoColumnTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.25 2010-05-20 09:42:26 cg Exp $'
+^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.25 2010-05-20 09:42:26 cg Exp $'
+    ^ '$Header$'
 ! !
+