--- a/Form.st	Tue Apr 01 23:13:42 1997 +0200
+++ b/Form.st	Tue Apr 01 23:15:16 1997 +0200
@@ -671,9 +671,18 @@
 !Form methodsFor:'ST-80 compatibility'!
 
 close
-    self release
+    drawableId notNil ifTrue:[
+        gcId notNil ifTrue:[
+            device destroyGC:gcId.
+            gcId := nil
+        ].
+        device destroyPixmap:drawableId.
+        drawableId := nil.
 
-    "Created: 6.3.1997 / 15:47:18 / cg"
+        Lobby unregister:self.
+    ].
+
+    "Modified: 1.4.1997 / 23:14:57 / cg"
 !
 
 displayOn:aGC at:aPoint
@@ -1731,6 +1740,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.76 1997-03-28 15:12:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.77 1997-04-01 21:15:16 cg Exp $'
 ! !
 Form initialize!