--- a/Image.st	Mon Sep 16 17:29:45 1996 +0200
+++ b/Image.st	Mon Sep 16 21:06:05 1996 +0200
@@ -3438,9 +3438,10 @@
         ^ self copy on:aDevice
     ].
     deviceForm := self asFormOn:aDevice.
-    device := aDevice
-
-    "Modified: 14.6.1996 / 15:28:30 / cg"
+    device := aDevice.
+    Lobby register:self
+
+    "Modified: 16.9.1996 / 21:02:33 / cg"
 ! !
 
 !Image methodsFor:'converting greyscale images'!
@@ -8577,6 +8578,6 @@
 !Image  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.124 1996-09-13 16:46:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.125 1996-09-16 19:06:05 cg Exp $'
 ! !
 Image initialize!