--- a/Object.st	Thu Jan 09 18:56:35 1997 +0100
+++ b/Object.st	Thu Jan 09 19:08:58 1997 +0100
@@ -239,7 +239,10 @@
             NonWeakDependencies := IdentityDictionary new.
         ]
     ].
-    InfoPrinting := true
+
+    "/ initialize InfoPrinting to the VM's infoPrint setting
+    "/ (which can be turned off via a command line argument)
+    InfoPrinting := ObjectMemory infoPrinting.
 
     "Object initialize"
 
@@ -3806,8 +3809,8 @@
      or fatal messages.
      These messages can be turned on/off by 'Object infoPrinting:true/false'"
 
-    InfoPrinting ifTrue:[
-	self printOn:Stderr
+    InfoPrinting == true ifTrue:[
+	self errorPrint
     ]
 !
 
@@ -3819,7 +3822,7 @@
      or fatal messages.
      These messages can be turned on/off by 'Object infoPrinting:true/false'"
 
-    InfoPrinting ifTrue:[
+    InfoPrinting == true ifTrue:[
         self errorPrintCR
     ]
 
@@ -3836,9 +3839,7 @@
 
      Please use #infoPrintCR - this method exists for backward compatibility."
 
-    InfoPrinting ifTrue:[
-        self errorPrintCR
-    ]
+    ^ self infoPrintCR
 
     "Modified: 20.5.1996 / 10:25:07 / cg"
 !
@@ -5404,6 +5405,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.155 1997-01-08 23:29:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.156 1997-01-09 18:08:58 cg Exp $'
 ! !
 Object initialize!