--- a/PositionableStream.st	Fri Dec 06 15:37:49 2002 +0100
+++ b/PositionableStream.st	Fri Dec 06 15:40:05 2002 +0100
@@ -470,14 +470,6 @@
 
     |aString sawExcla rslt done|
 
-    Smalltalk::Compiler isNil ifTrue:[
-        self isFileStream ifTrue:[
-            Transcript show:('[' , self pathName , '] ').
-        ].
-        Transcript showCR:'cannot fileIn (no compiler).'.
-        ^ nil.
-    ].
-
     self skipSeparators.
     self atEnd ifFalse:[
         sawExcla := self peekFor:(self class chunkSeparator).
@@ -564,6 +556,14 @@
         ]
     ].
 
+    Smalltalk::Compiler isNil ifTrue:[
+        self isFileStream ifTrue:[
+            Transcript show:('[' , self pathName , '] ').
+        ].
+        Transcript showCR:'cannot fileIn (no compiler).'.
+        ^ nil.
+    ].
+
     "/ support for V'Age applications
     defaultApplicationQuerySignal := Class defaultApplicationQuerySignal.
     changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal.
@@ -1149,7 +1149,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.118 2002-12-06 14:37:49 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.119 2002-12-06 14:40:05 penk Exp $'
 ! !
 
 PositionableStream initialize!