--- a/Method.st	Sat Sep 25 23:30:06 1999 +0200
+++ b/Method.st	Sat Sep 25 23:32:01 1999 +0200
@@ -444,15 +444,22 @@
             ].
             junk := aStream nextChunk.
 
-            "
-             keep a weak reference - it may be needed again soon ...
-            "
-            LastFileLock critical:[
-                (LastFileReference at:1) == 0 ifTrue:[
-                    LastFileReference at:1 put:aStream.
-                    LastSourceFileName := source.
-                ] ifFalse:[
-                    aStream close.
+            OperatingSystem isMSDOSlike ifTrue:[
+                "
+                 kludge for now - somehow this does not work under win32 (sigh)
+                "
+                aStream close.
+            ] ifFalse:[
+                "
+                 keep a weak reference - it may be needed again soon ...
+                "
+                LastFileLock critical:[
+                    (LastFileReference at:1) == 0 ifTrue:[
+                        LastFileReference at:1 put:aStream.
+                        LastSourceFileName := source.
+                    ] ifFalse:[
+                        aStream close.
+                    ].
                 ].
             ].
         ]
@@ -468,7 +475,7 @@
     ^ junk
 
     "Modified: / 7.1.1997 / 16:20:09 / stefan"
-    "Modified: / 9.4.1998 / 12:37:41 / cg"
+    "Modified: / 25.9.1999 / 23:31:52 / cg"
 !
 
 source:aString
@@ -2445,6 +2452,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.177 1999-09-24 18:19:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.178 1999-09-25 21:32:01 cg Exp $'
 ! !
 Method initialize!