--- a/EnterFieldGroup.st	Tue Mar 16 14:39:43 1999 +0100
+++ b/EnterFieldGroup.st	Tue Mar 16 15:13:29 1999 +0100
@@ -717,7 +717,7 @@
             ]
         ].
         explicit ifTrue:[
-            wg focusView:nextField.
+            wg focusView:nextField byTab:(wg focusCameByTab).
         ] ifFalse:[
             self makeActive:nextField 
         ]
@@ -813,5 +813,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.36 1999-03-16 13:35:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.37 1999-03-16 14:13:29 cg Exp $'
 ! !