--- a/TextView.st	Thu Apr 17 12:54:50 1997 +0200
+++ b/TextView.st	Fri Apr 18 13:18:54 1997 +0200
@@ -838,7 +838,7 @@
 
      (see EditTextView>>keyPress:x:y and Workspace>>keyPress:x:y)
     "
-    (key at:1) asLowercase == $f ifTrue:[
+    (key size > 1 and:[(key at:1) asLowercase == $f]) ifTrue:[
         (('[fF][0-9]' match:key)
         or:['[fF][0-9][0-9]' match:key]) ifTrue:[
             self sensor shiftDown ifTrue:[
@@ -854,6 +854,7 @@
     super keyPress:key x:x y:y
 
     "Modified: 2.4.1997 / 16:48:26 / cg"
+    "Modified: 18.4.1997 / 12:12:27 / stefan"
 !
 
 mapped 
@@ -2437,5 +2438,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.94 1997-04-16 18:50:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.95 1997-04-18 11:18:54 stefan Exp $'
 ! !