*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 22 Feb 2007 16:23:40 +0100
changeset 10407 1a827d1a6a3f
parent 10406 0c022c8d3f80
child 10408 8027bf22ae31
*** empty log message ***
FileStream.st
--- a/FileStream.st	Thu Feb 22 16:23:17 2007 +0100
+++ b/FileStream.st	Thu Feb 22 16:23:40 2007 +0100
@@ -1198,7 +1198,7 @@
 #endif /* poor VMS */
 
 	    if (@global(FileOpenTrace) == true) {
-		fprintf(stderr, "fopen %s [FileStream] -> %x\n", __stringVal(pathName), f);
+		console_fprintf(stderr, "fopen %s [FileStream] -> %x\n", __stringVal(pathName), f);
 	    }
 	    if (f != NULL) {
 		OBJ fp;
@@ -1504,7 +1504,7 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.126 2007-02-20 08:14:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.127 2007-02-22 15:23:40 cg Exp $'
 ! !
 
 FileStream initialize!