--- a/private.rc	Wed Jul 03 00:21:49 1996 +0200
+++ b/private.rc	Mon Jul 15 17:07:08 1996 +0200
@@ -22,20 +22,6 @@
 StandardSystemView includeHostNameInLabel:true.
 
 "/
-"/ this turns off/on information messages from classes
-"/ (such as 'D8IMAGE: allocating colors ...'
-"/
-"/ Object infoPrinting:false.
-Object infoPrinting:true.
-
-"/
-"/ this turns off/on information messages from the VM
-"/ (such as 'MEM: chitty chatty ...'
-"/
-"/ ObjectMemory infoPrinting:false.
-ObjectMemory infoPrinting:true.
-
-"/
 "/ this turns off error/fatal messages from the VM
 "/ (it does not really make sense to turn them off)
 "/
@@ -52,7 +38,7 @@
 
 |whoAmI|
 
-Transcript showCR:'reading keyboard.rc ...'.
+'reading keyboard.rc ...' infoPrintCR.
 Smalltalk fileIn:'keyboard.rc'.
 
 "/
@@ -108,7 +94,7 @@
 "/     if you think this is too 'childish', remove the line below ...
 "/
 "/
-"/ Transcript showCR:'loading fancy cursors ...'.
+"/ 'loading fancy cursors ...' infoPrintCR.
 Cursor initializeNewCursors.
 
 
@@ -119,7 +105,7 @@
 (whoAmI = 'claus' or:[whoAmI = 'cg']) ifTrue:[
     Compiler warnSTXSpecials:false.
     HistoryManager notNil ifTrue:[
-	Transcript showCR:'activating HistoryManager ...'.
+	'activating HistoryManager ...' infoPrintCR.
 	HistoryManager activate.
     ]
 ].
@@ -224,3 +210,20 @@
     Project current packageName:#'private'.
 ].
 !
+
+(Smalltalk commandLineArguments includes:'-q') ifFalse:[
+    "/
+    "/ this turns off/on information messages from classes
+    "/ (such as 'D8IMAGE: allocating colors ...'
+    "/
+    "/ Object infoPrinting:false.
+    Object infoPrinting:true.
+
+    "/
+    "/ this turns off/on information messages from the VM
+    "/ (such as 'MEM: chitty chatty ...'
+    "/
+    "/ ObjectMemory infoPrinting:false.
+    ObjectMemory infoPrinting:true.
+].
+!