#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 12 Mar 2019 22:05:00 +0100
changeset 23877 ab9bfa0f06bb
parent 23876 bae22b8411f9
child 23878 a08a25c24390
#BUGFIX by cg class: OSFileHandle changed: #unregisterForFinalization before #closeFile
OSFileHandle.st
--- a/OSFileHandle.st	Tue Mar 12 20:56:20 2019 +0100
+++ b/OSFileHandle.st	Tue Mar 12 22:05:00 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 OSHandle subclass:#OSFileHandle
 	instanceVariableNames:''
 	classVariableNames:'ConcreteClass'
@@ -119,8 +123,10 @@
 close
     "close the file"
 
+    self unregisterForFinalization.
     self closeFile.
-    self unregisterForFinalization.
+
+    "Modified: / 12-03-2019 / 22:04:11 / Claus Gittinger"
 !
 
 closeFile
@@ -133,7 +139,7 @@
 !OSFileHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OSFileHandle.st,v 1.8 2014-06-07 15:08:16 cg Exp $'
+    ^ '$Header$'
 ! !