--- a/PositionableStream.st	Thu Sep 26 21:11:49 2002 +0200
+++ b/PositionableStream.st	Thu Sep 26 22:10:26 2002 +0200
@@ -149,6 +149,14 @@
     ^ ZeroPosition
 ! !
 
+!PositionableStream class methodsFor:'queries'!
+
+currentFileInDirectory
+    "during a fileIn (if a script), the script can ask for the current directory"
+
+    ^ CurrentFileInDirectoryQuerySignal query
+! !
+
 !PositionableStream methodsFor:'Compatibility - Dolphin'!
 
 endChunk
@@ -1129,6 +1137,7 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.114 2002-08-02 17:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.115 2002-09-26 20:10:26 cg Exp $'
 ! !
+
 PositionableStream initialize!