--- a/Tools__CodeView2.st	Tue Jul 09 22:23:16 2013 +0200
+++ b/Tools__CodeView2.st	Tue Jul 09 22:29:28 2013 +0200
@@ -2643,6 +2643,20 @@
     "Created: / 08-10-2011 / 12:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!CodeView2::TextView methodsFor:'bit blitting'!
+
+copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async
+    "/ a vertical scroll operation ?
+    aDrawable == self ifTrue:[
+        ((srcY ~= dstY) and:[srcX = dstX]) ifTrue:[
+            gutterView
+                copyFrom:aDrawable x:0 y:srcY toX:0 y:dstY width:(gutterView width) height:h async:false
+        ]
+    ].
+    ^ super
+        copyFrom:aDrawable x:srcX y:srcY toX:dstX y:dstY width:w height:h async:async
+! !
+
 !CodeView2::TextView methodsFor:'channels'!
 
 reallyModifiedChannel
@@ -3593,15 +3607,15 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.103 2013-07-06 11:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.104 2013-07-09 20:29:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.103 2013-07-06 11:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.104 2013-07-09 20:29:28 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeView2.st,v 1.103 2013-07-06 11:45:11 cg Exp $'
+    ^ '$Id: Tools__CodeView2.st,v 1.104 2013-07-09 20:29:28 cg Exp $'
 ! !