--- a/EnterFieldGroup.st	Tue Mar 16 14:04:59 1999 +0100
+++ b/EnterFieldGroup.st	Tue Mar 16 14:35:06 1999 +0100
@@ -505,8 +505,8 @@
 
     "set the fields leaveAction to enable next field"
 
-    aField leaveAction:[:key |
-        self fieldLeft:aField withKey:key
+    aField leaveAction:[:field :key |
+        self fieldLeft:field withKey:key
     ].
 
     fields size == 1 ifTrue:[
@@ -615,11 +615,6 @@
     |thisIndex action next wg explicit nFields nextField fs
      delta|
 
-"/        currentField notNil ifTrue:[
-"/            currentField disable.
-"/            currentField hideCursor.
-"/        ].
-"/
     action := key.
     nFields := fields size.
     thisIndex := fields indexOf:aField.
@@ -818,5 +813,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.35 1999-03-15 10:59:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.36 1999-03-16 13:35:00 cg Exp $'
 ! !