--- a/Object.st	Fri Jul 20 14:08:28 2001 +0200
+++ b/Object.st	Mon Jul 23 18:04:00 2001 +0200
@@ -538,7 +538,6 @@
     "Modified: 23.4.1996 / 16:00:07 / cg"
 ! !
 
-
 !Object methodsFor:'Compatibility - ST80'!
 
 isMetaclass
@@ -5842,6 +5841,7 @@
 
 errorPrintNL
     "{ Pragma: +optSpace }"
+    <resource:#obsolete>
 
     "print the receiver followed by a cr on the standard error stream.
      Please use #errorPrintCR - this method exists for backward compatibility."
@@ -5853,6 +5853,7 @@
 
 errorPrintNewline
     "{ Pragma: +optSpace }"
+    <resource:#obsolete>
 
     "print the receiver followed by a cr on the standard error stream.
      Please use #errorPrintCR - this method exists for backward compatibility."
@@ -5892,17 +5893,12 @@
 
 infoPrintNL
     "{ Pragma: +optSpace }"
+    <resource:#obsolete>
 
     "print the receiver followed by a cr on the standard error stream.
-     This is meant for information messages which are not warnings
-     or fatal messages.
-     These messages can be turned on/off by 'Object infoPrinting:true/false'.
-
      Please use #infoPrintCR - this method exists for backward compatibility."
 
     ^ self infoPrintCR
-
-    "Modified: 20.5.1996 / 10:25:07 / cg"
 !
 
 print
@@ -5943,6 +5939,8 @@
     "print the receiver followed by a cr on the standard output stream
      This exists for GNU Smalltalk compatibility - please use #printCR."
 
+    <resource:#obsolete>
+
     ^ self printCR
 
     "Modified: 20.5.1996 / 10:25:31 / cg"
@@ -5952,6 +5950,8 @@
     "print the receiver followed by a cr on the standard output stream.
      This exists for backward compatibility - please use #printCR."
 
+    <resource:#obsolete>
+
     self printCR
 
     "Modified: 20.5.1996 / 10:25:46 / cg"
@@ -6225,6 +6225,8 @@
     "store the receiver on standard output; append a newline.
      This method is included for backward compatibility-  use #storeCR."
 
+    <resource:#obsolete>
+
     self storeCR.
 
     "Modified: 20.5.1996 / 10:26:49 / cg"
@@ -8299,6 +8301,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.359 2001-06-21 09:50:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.360 2001-07-23 16:04:00 stefan Exp $'
 ! !
 Object initialize!