--- a/Future.st	Sat May 18 17:33:04 1996 +0200
+++ b/Future.st	Sat May 18 17:49:46 1996 +0200
@@ -111,8 +111,8 @@
 
 	| fac |
 	fac := [100 factorial] futureValue.
-	Transcript showCr: 'evaluating factorial...'.
-	Transcript showCr: fac printString
+	Transcript showCR: 'evaluating factorial...'.
+	Transcript showCR: fac printString
 
 	"Future example1"
 !
@@ -125,11 +125,11 @@
 	 both blocks have finished before continuing."
 
 	| fac1 fac2 |
-	fac1 := [Transcript showCr: 'Starting fac1.. '. 1000 factorial] futureValue.
-	fac2 := [Transcript showCr: 'Starting fac2.. '. 2000 factorial] futureValue.
+	fac1 := [Transcript showCR: 'Starting fac1.. '. 1000 factorial] futureValue.
+	fac2 := [Transcript showCR: 'Starting fac2.. '. 2000 factorial] futureValue.
 	fac2 touch.
 	fac1 touch.
-	Transcript showCr: 'both completed.'.
+	Transcript showCR: 'both completed.'.
 
 	"Future example2"
 !
@@ -139,7 +139,7 @@
 
 	| temp |
 	temp := [:x :y | 10 * x * y] futureValue: 3 value: 4.
-	Transcript  showCr: temp printString.
+	Transcript  showCR: temp printString.
 
 	"Future example3"
 ! !