--- a/EnterFieldGroup.st	Fri Nov 04 16:32:13 2016 +0100
+++ b/EnterFieldGroup.st	Mon Nov 07 15:34:56 2016 +0100
@@ -575,7 +575,10 @@
       outside. However, this info is not used by any view currently)"
 
     currentField notNil ifTrue:[
-        currentField keyPress:key x:nil y:nil
+        "/ in case the currentFIeld was destroyed without telling me... (hack fix).
+        currentField device notNil ifTrue:[
+            currentField keyPress:key x:nil y:nil
+        ]
     ]
 
     "Modified: / 18.9.1998 / 20:00:36 / cg"