--- a/KeyboardForwarder.st	Sat May 18 17:02:15 1996 +0200
+++ b/KeyboardForwarder.st	Sat May 18 17:35:59 1996 +0200
@@ -108,9 +108,9 @@
 
         catcher := Plug new.
         catcher respondTo:#keyPress:x:y:view:
-                    with:[:key :x :y :view | Transcript showCr:'cought keyPress: ' , key printString.].
+                    with:[:key :x :y :view | Transcript showCR:'cought keyPress: ' , key printString.].
         catcher respondTo:#keyRelease:x:y:view:
-                    with:[:key :x :y :view | Transcript showCr:'cought keyRelease: ' , key printString.].
+                    with:[:key :x :y :view | Transcript showCR:'cought keyRelease: ' , key printString.].
 
         top := StandardSystemView new.
         top extent:200@200.
@@ -131,7 +131,7 @@
 
         catcher := Plug new.
         catcher respondTo:#keyPress:x:y:view:
-                    with:[:key :x :y :view | Transcript showCr:'cought return'].
+                    with:[:key :x :y :view | Transcript showCR:'cought return'].
 
         top := StandardSystemView new.
         top extent:200@200.
@@ -433,5 +433,5 @@
 !KeyboardForwarder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.16 1996-05-18 09:40:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/KeyboardForwarder.st,v 1.17 1996-05-18 15:33:56 cg Exp $'
 ! !