--- a/Object.st	Mon Nov 26 22:53:33 2001 +0100
+++ b/Object.st	Mon Nov 26 22:53:50 2001 +0100
@@ -5920,6 +5920,12 @@
 
 !Object methodsFor:'printing & storing'!
 
+basicPrintOn:aStream
+    "append the receivers className with an articel to the argument, aStream"
+
+    aStream nextPutAll:self classNameWithArticle
+!
+
 className
     "return the classname of the receivers class"
 
@@ -6105,7 +6111,12 @@
      BUT: this method is heavily redefined for objects which
      can print prettier."
 
-    aStream nextPutAll:self classNameWithArticle
+    self basicPrintOn:aStream.
+
+   "
+    (1@2) printOn:Transcript
+    (1@2) basicPrintOn:Transcript
+   "
 !
 
 printOn:aStream leftPaddedTo:size
@@ -8607,6 +8618,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.383 2001-11-19 09:25:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.384 2001-11-26 21:53:50 cg Exp $'
 ! !
 Object initialize!