--- a/UnixFileDescriptorHandle.st	Fri Jun 23 20:48:24 2000 +0200
+++ b/UnixFileDescriptorHandle.st	Fri Jun 23 20:54:30 2000 +0200
@@ -1,3 +1,5 @@
+"{ Package: 'stx:libbasic' }"
+
 OSFileHandle subclass:#UnixFileDescriptorHandle
 	instanceVariableNames:''
 	classVariableNames:''
@@ -15,8 +17,8 @@
 
 !UnixFileDescriptorHandle methodsFor:'finalization'!
 
-disposed
-    "a filedescriptor was garbage collected - close the underlying file"
+closeFile
+    "close the underlying file"
 
 %{
     INT fd = (INT)(__externalAddressVal(self));
@@ -29,26 +31,8 @@
 
 ! !
 
-!UnixFileDescriptorHandle methodsFor:'release'!
-
-close
-    "close the file"
-
-%{
-    INT fd = (INT)(__externalAddressVal(self));
-
-    if (fd > 0) {
-        __externalAddressVal(self) = (OBJ)-1;
-        close(fd);
-    }
-%}.
-    Lobby unregister:self
-
-
-! !
-
 !UnixFileDescriptorHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixFileDescriptorHandle.st,v 1.1 1999-09-18 11:11:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixFileDescriptorHandle.st,v 1.2 2000-06-23 18:54:24 cg Exp $'
 ! !