--- a/RegressionTests__FileOpenTest.st	Tue Dec 11 21:12:04 2001 +0100
+++ b/RegressionTests__FileOpenTest.st	Tue Dec 11 21:12:41 2001 +0100
@@ -164,40 +164,6 @@
     "Modified: / 12.8.1998 / 13:29:55 / cg"
 !
 
-testFinalization1
-    "open an existing file; check if GC closes it"
-
-    |h|
-
-    self createWithSize10:'xxx2'.
-
-    h := OperatingSystem openFileForWrite:'xxx2'.
-
-    self assert:(h notNil).
-    self assert:(h isValid).
-    OperatingSystem isMSDOSlike ifTrue:[
-        self assert:(h address ~~ 0).
-    ].
-
-    h := nil.
-    ObjectMemory tenure.
-    ObjectMemory garbageCollect.
-
-    self assert:(h isValid not).
-    OperatingSystem isMSDOSlike ifTrue:[
-        self assert:(h address == 0).
-    ].
-
-    self assert:('xxx2' asFilename fileSize == 10).   "/ should not change size
-    'xxx2' asFilename delete.
-
-    "
-     self new testFinalization1
-    "
-
-    "Modified: / 12.8.1998 / 13:29:55 / cg"
-!
-
 testOpen1
     "open an existing file for reading"
 
@@ -371,6 +337,40 @@
     "
 
     "Modified: / 12.8.1998 / 13:29:55 / cg"
+!
+
+xtestFinalization1
+    "open an existing file; check if GC closes it"
+
+    |h|
+
+    self createWithSize10:'xxx2'.
+
+    h := OperatingSystem openFileForWrite:'xxx2'.
+
+    self assert:(h notNil).
+    self assert:(h isValid).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address ~~ 0).
+    ].
+
+    h := nil.
+    ObjectMemory tenure.
+    ObjectMemory garbageCollect.
+
+    self assert:(h isValid not).
+    OperatingSystem isMSDOSlike ifTrue:[
+        self assert:(h address == 0).
+    ].
+
+    self assert:('xxx2' asFilename fileSize == 10).   "/ should not change size
+    'xxx2' asFilename delete.
+
+    "
+     self new testFinalization1
+    "
+
+    "Modified: / 12.8.1998 / 13:29:55 / cg"
 ! !
 
 !FileOpenTest class methodsFor:'documentation'!