--- a/Structure.st	Tue Feb 17 00:51:49 2004 +0100
+++ b/Structure.st	Tue Mar 02 00:07:27 2004 +0100
@@ -1368,7 +1368,7 @@
 
     sel == #allInstVarNames ifTrue:[
         methodDictionary isNil ifTrue:[
-            'oops - nil methodDict' printCR.
+            'Structure [info]: oops - nil methodDict' infoPrintCR.
             ^ #()
         ].
 
@@ -1403,9 +1403,9 @@
          ^ instSize
     ].
 
-    'Structure [warning]: return nil for: ' print.
-    aMessage print.
-    ' args ' print. args printCR.
+    'Structure [warning]: return nil for: ' infoPrint.
+    aMessage infoPrint.
+    ' args ' infoPrint. args infoPrintCR.
 
     ^ nil.
 
@@ -1416,7 +1416,7 @@
 !Structure class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.18 2004-02-10 17:09:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Structure.st,v 1.19 2004-03-01 23:07:27 cg Exp $'
 ! !
 
 Structure initialize!