FileStream.st
changeset 10407 1a827d1a6a3f
parent 10395 62fd9eba5c4b
child 10450 bb40b56ed6b6
--- 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!