--- a/Character.st	Fri Jul 07 16:33:06 2000 +0200
+++ b/Character.st	Sat Jul 08 20:49:43 2000 +0200
@@ -788,7 +788,9 @@
 %{  /* NOCONTEXT */
 
     putchar(__intVal(__INST(asciivalue)));
-%}
+    RETURN(self);
+%}.
+    super print
 !
 
 printOn:aStream
@@ -1092,5 +1094,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.60 2000-06-28 14:22:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.61 2000-07-08 18:49:43 cg Exp $'
 ! !

--- a/Object.st	Fri Jul 07 16:33:06 2000 +0200
+++ b/Object.st	Sat Jul 08 20:49:43 2000 +0200
@@ -5627,6 +5627,14 @@
 print
     "print the receiver on the standard output stream (which is not the Transcript)"
 
+    "/ the following allows printCR to be used during
+    "/ the early init-phase, when no Stdout has been set up.
+    "/ (depends on string to respond to #print)
+
+    Stdout isNil ifTrue:[
+        self printString print.
+        ^ self
+    ].
     self printOn:Stdout
 
     "Modified: 4.11.1996 / 23:36:58 / cg"
@@ -5635,6 +5643,14 @@
 printCR
     "print the receiver followed by a cr on the standard output stream (which is not the Transcript)"
 
+    "/ the following allows printCR to be used during
+    "/ the early init-phase, when no Stdout has been set up.
+    "/ (depends on string to respond to #printCR)
+
+    Stdout isNil ifTrue:[
+        self printString printCR.
+        ^ self
+    ].
     self printOn:Stdout.
     Stdout cr
 
@@ -7957,6 +7973,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.329 2000-06-26 13:43:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.330 2000-07-08 18:49:24 cg Exp $'
 ! !
 Object initialize!