--- a/TextView.st	Tue Sep 08 13:37:38 1998 +0200
+++ b/TextView.st	Tue Sep 08 22:09:00 1998 +0200
@@ -2746,9 +2746,11 @@
     selectVisibleLine := self visibleLineOfY:y.
     selectLine := self visibleLineToListLine:selectVisibleLine.
     selectLine notNil ifTrue:[
-	selectCol := self colOfX:x inVisibleLine:selectLine.
-	self selectWordAtLine:selectLine col:selectCol
+        selectCol := self colOfX:x inVisibleLine:selectVisibleLine.
+        self selectWordAtLine:selectLine col:selectCol
     ]
+
+    "Modified: / 8.9.1998 / 21:22:46 / cg"
 !
 
 selection
@@ -2870,5 +2872,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.121 1998-07-28 14:05:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.122 1998-09-08 20:09:00 cg Exp $'
 ! !