--- a/OpenVMSFilename.st	Wed Oct 01 13:40:14 1997 +0200
+++ b/OpenVMSFilename.st	Thu Oct 02 15:27:45 1997 +0200
@@ -2,7 +2,7 @@
 
 Filename subclass:#OpenVMSFilename
 	instanceVariableNames:'osName'
-	classVariableNames:'StandardSuffixTable'
+	classVariableNames:'StandardSuffixTable PresentAsLowercase'
 	poolDictionaries:''
 	category:'OS-OpenVMS'
 !
@@ -190,6 +190,9 @@
     s isEmpty ifTrue:[
 	^ '[]'
     ].
+    PresentAsLowercase == true ifTrue:[
+	^ s asLowercase
+    ].
     ^ s
 
     "Modified: 9.9.1997 / 09:38:41 / cg"
@@ -514,6 +517,33 @@
     ^ false
 ! !
 
+!OpenVMSFilename methodsFor:'queries - contents'!
+
+directoryContents
+    |cont|
+
+    cont := super directoryContents.
+    PresentAsLowercase == true ifTrue:[
+	cont := cont collect:[:nm | nm asLowercase]
+    ].
+    ^ cont
+
+    "
+     PresentAsLowercase := true
+     PresentAsLowercase := false
+    "
+!
+
+fullDirectoryContents
+    |cont|
+
+    cont := super fullDirectoryContents.
+    PresentAsLowercase == true ifTrue:[
+	cont := cont collect:[:nm | nm asLowercase]
+    ].
+    ^ cont
+! !
+
 !OpenVMSFilename methodsFor:'private accessing'!
 
 osNameForDirectory
@@ -1140,5 +1170,5 @@
 !OpenVMSFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.16 1997-09-24 04:40:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.17 1997-10-02 13:27:20 cg Exp $'
 ! !

--- a/PipeStr.st	Wed Oct 01 13:40:14 1997 +0200
+++ b/PipeStr.st	Thu Oct 02 15:27:45 1997 +0200
@@ -282,13 +282,15 @@
     |cmd tmpComFile pipe|
 
     (OperatingSystem platformName == #vms) ifTrue:[
-        tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
-        cmd := '@' , tmpComFile osName.
-        pipe := self readingFrom:cmd.
-        pipe notNil ifTrue:[
-            pipe exitAction:[tmpComFile delete].
-        ].
-        ^ pipe
+	tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
+	cmd := '@' , tmpComFile osName.
+	pipe := self readingFrom:cmd.
+	pipe notNil ifTrue:[
+	    pipe exitAction:[tmpComFile delete].
+	] ifFalse:[
+	    tmpComFile delete
+	].
+	^ pipe
     ].
 
     "/ unix - prepend a 'cd' to the command
@@ -339,6 +341,8 @@
 	pipe := self writingTo:cmd.
 	pipe notNil ifTrue:[
 	    pipe exitAction:[tmpComFile delete].
+	] ifFalse:[
+	    tmpComFile delete
 	].
 	^ pipe
     ].
@@ -644,6 +648,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.64 1997-09-24 15:11:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.65 1997-10-02 13:27:45 cg Exp $'
 ! !
 PipeStream initialize!

--- a/PipeStream.st	Wed Oct 01 13:40:14 1997 +0200
+++ b/PipeStream.st	Thu Oct 02 15:27:45 1997 +0200
@@ -282,13 +282,15 @@
     |cmd tmpComFile pipe|
 
     (OperatingSystem platformName == #vms) ifTrue:[
-        tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
-        cmd := '@' , tmpComFile osName.
-        pipe := self readingFrom:cmd.
-        pipe notNil ifTrue:[
-            pipe exitAction:[tmpComFile delete].
-        ].
-        ^ pipe
+	tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
+	cmd := '@' , tmpComFile osName.
+	pipe := self readingFrom:cmd.
+	pipe notNil ifTrue:[
+	    pipe exitAction:[tmpComFile delete].
+	] ifFalse:[
+	    tmpComFile delete
+	].
+	^ pipe
     ].
 
     "/ unix - prepend a 'cd' to the command
@@ -339,6 +341,8 @@
 	pipe := self writingTo:cmd.
 	pipe notNil ifTrue:[
 	    pipe exitAction:[tmpComFile delete].
+	] ifFalse:[
+	    tmpComFile delete
 	].
 	^ pipe
     ].
@@ -644,6 +648,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.64 1997-09-24 15:11:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.65 1997-10-02 13:27:45 cg Exp $'
 ! !
 PipeStream initialize!