--- a/TextBox.st	Sat May 18 13:09:56 1996 +0200
+++ b/TextBox.st	Sat May 18 17:43:43 1996 +0200
@@ -34,7 +34,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.12 1995-11-11 16:29:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TextBox.st,v 1.13 1996-05-18 15:43:33 cg Exp $'
 !
 
 documentation
@@ -54,7 +54,7 @@
 
 	t := TextBox new.
 	t title:'enter some text'.
-	t action:[:text | Transcript showCr:('the entered text was:\' , text) withCRs].
+	t action:[:text | Transcript showCR:('the entered text was:\' , text) withCRs].
 	t showAtPointer
 "
 ! !