--- a/TextView.st	Mon May 18 16:30:25 2009 +0200
+++ b/TextView.st	Mon May 18 16:30:38 2009 +0200
@@ -4128,12 +4128,13 @@
 selectWordAtLine:line col:col
     "select the word at given line/col"
 
-    self wordAtLine:line col:col do:[
-        :beginLine :beginCol :endLine :endCol :style |
-
-        self selectFromLine:beginLine col:beginCol toLine:endLine col:endCol.
-        selectStyle := style
-    ]
+    self 
+        wordAtLine:line col:col do:[
+            :beginLine :beginCol :endLine :endCol :style |
+
+            self selectFromLine:beginLine col:beginCol toLine:endLine col:endCol.
+            selectStyle := style
+        ]
 
     "Modified: 18.3.1996 / 17:30:38 / cg"
 !
@@ -4277,7 +4278,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.299 2009-03-23 10:00:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.300 2009-05-18 14:30:38 cg Exp $'
 ! !
 
 TextView initialize!