--- a/EditTextView.st	Wed May 22 19:04:18 1996 +0200
+++ b/EditTextView.st	Fri May 24 14:17:46 1996 +0200
@@ -640,20 +640,20 @@
 cursorLine:line col:col
     "this positions onto physical - not visible - line"
 
-    |wasOn|
+    |wasOn newCol|
 
     wasOn := self hideCursor.
     cursorLine := self validateCursorLine:line.
     cursorVisibleLine := self listLineToVisibleLine:line.
     (col < 1) ifTrue:[
-        cursorCol := 1
+        newCol := 1
     ] ifFalse:[
-        cursorCol := col.
+        newCol := col.
     ].
-    cursorCol := self validateCursorCol:cursorCol inLine:cursorLine.
+    cursorCol := self validateCursorCol:newCol inLine:cursorLine.
     self makeCursorVisibleAndShowCursor:wasOn.
 
-    "Modified: 22.5.1996 / 18:27:21 / cg"
+    "Modified: 24.5.1996 / 14:16:14 / cg"
 !
 
 cursorReturn
@@ -908,19 +908,19 @@
 cursorVisibleLine:visibleLineNr col:colNr
     "put cursor to visibleline/col"
 
-    |wasOn|
+    |wasOn newCol|
 
     wasOn := self hideCursor.
     cursorLine := self validateCursorLine:(self visibleLineToAbsoluteLine:visibleLineNr).
     cursorVisibleLine := visibleLineNr.
-    cursorCol := colNr.
-    (cursorCol < 1) ifTrue:[
-        cursorCol := 1
+    newCol := colNr.
+    (newCol < 1) ifTrue:[
+        newCol := 1
     ].
-    cursorCol := self validateCursorCol:cursorCol inLine:cursorLine.
+    cursorCol := self validateCursorCol:newCol inLine:cursorLine.
     self makeCursorVisibleAndShowCursor:wasOn.
 
-    "Modified: 22.5.1996 / 18:28:33 / cg"
+    "Modified: 24.5.1996 / 14:17:06 / cg"
 !
 
 cursorX:x y:y
@@ -3853,5 +3853,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.79 1996-05-22 16:30:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.80 1996-05-24 12:17:46 cg Exp $'
 ! !