--- a/PositionableStream.st	Tue May 18 12:23:59 2004 +0200
+++ b/PositionableStream.st	Tue May 18 15:30:47 2004 +0200
@@ -262,7 +262,7 @@
     ^ OptionBox 
           request:message 
           label:'Error in fileIn'
-          form:(WarningBox iconBitmap)
+          image:(WarningBox iconBitmap)
           buttonLabels:labels
           values:values
           default:#continue
@@ -481,7 +481,7 @@
             action := OptionBox 
                           request:(msg withCRs) 
                           label:'Class redefinition in fileIn'
-                          form:(WarningBox iconBitmap)
+                          image:(WarningBox iconBitmap)
 "/ cg: now always keep the old packageID
 "/                          buttonLabels:#('cancel' 'skip' 'debug' 'keep' 'keep all' 'continue' 'continue all')
 "/                          values:#(#abort #skip #debug #keep #keepAll #continue #continueForAll)
@@ -1118,7 +1118,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.140 2004-04-21 14:11:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.141 2004-05-18 13:30:47 cg Exp $'
 ! !
 
 PositionableStream initialize!