--- a/Image.st	Thu Aug 03 05:22:53 1995 +0200
+++ b/Image.st	Tue Aug 08 03:25:13 1995 +0200
@@ -29,7 +29,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Image.st,v 1.36 1995-07-27 23:53:00 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.37 1995-08-08 01:24:05 claus Exp $
 '!
 
 !Image class methodsFor:'documentation'!
@@ -50,7 +50,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Image.st,v 1.36 1995-07-27 23:53:00 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.37 1995-08-08 01:24:05 claus Exp $
 "
 !
 
@@ -356,7 +356,7 @@
     inStream isNil ifTrue:[
 	inStream := Smalltalk bitmapFileStreamFor:name.
 	inStream isNil ifTrue:[
-	    ('IMAGE: ' , aFileName , ' is not existing or not readable') errorPrintNL.
+	    ('IMAGE: ' , aFileName , ' does not exist or is not readable') infoPrintNL.
 	    ^ nil
 	].
 	name := 'bitmaps/' , name.
@@ -1477,7 +1477,7 @@
 		device := aDevice.
 		Lobby register:self
 	    ] ifFalse:[
-		Lobby changed:self
+		Lobby registerChange:self
 	    ].
 	    "
 	     can save space, by not keeping the images data-bits
@@ -1516,7 +1516,7 @@
 		device := aDevice.
 		Lobby register:self
 	    ] ifFalse:[
-		Lobby changed:self
+		Lobby registerChange:self
 	    ].
 	    "
 	     can save space, by not keeping the images data-bits