*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 22 Sep 1997 21:43:37 +0200
changeset 2970 f846e7c1962c
parent 2969 1fcf6dfb6004
child 2971 57bdf4ab47f6
*** empty log message ***
PipeStr.st
PipeStream.st
--- a/PipeStr.st	Mon Sep 22 21:38:56 1997 +0200
+++ b/PipeStr.st	Mon Sep 22 21:43:37 1997 +0200
@@ -250,8 +250,8 @@
 
     ^ self
 	createCOMFileForVMSCommands:(Array
-					with:('$set def ' , aDirectory asFilename pathName asFilename osNameForDirectory)
-					with:('$' , aCommandString)).
+					with:('set def ' , aDirectory asFilename pathName asFilename osNameForDirectory)
+					with:aCommandString).
 ! !
 
 !PipeStream class methodsFor:'instance creation'!
@@ -651,6 +651,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.59 1997-09-22 19:38:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.60 1997-09-22 19:43:37 cg Exp $'
 ! !
 PipeStream initialize!
--- a/PipeStream.st	Mon Sep 22 21:38:56 1997 +0200
+++ b/PipeStream.st	Mon Sep 22 21:43:37 1997 +0200
@@ -250,8 +250,8 @@
 
     ^ self
 	createCOMFileForVMSCommands:(Array
-					with:('$set def ' , aDirectory asFilename pathName asFilename osNameForDirectory)
-					with:('$' , aCommandString)).
+					with:('set def ' , aDirectory asFilename pathName asFilename osNameForDirectory)
+					with:aCommandString).
 ! !
 
 !PipeStream class methodsFor:'instance creation'!
@@ -651,6 +651,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.59 1997-09-22 19:38:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.60 1997-09-22 19:43:37 cg Exp $'
 ! !
 PipeStream initialize!