--- a/Image.st	Tue May 27 11:36:34 1997 +0200
+++ b/Image.st	Tue May 27 11:37:02 1997 +0200
@@ -4904,6 +4904,12 @@
 
 !Image methodsFor:'displaying'!
 
+asImage
+    "ST-80 compatibility
+    "
+    ^ self
+!
+
 displayFilledOn:aGC
     "display the receiver as an opaque image.
      This allows Images to be wrapped by a FillingWrapper"
@@ -10628,6 +10634,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.193 1997-05-20 14:57:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.194 1997-05-27 09:37:02 ca Exp $'
 ! !
 Image initialize!