--- a/UnixOperatingSystem.st	Thu Feb 22 16:03:46 2007 +0100
+++ b/UnixOperatingSystem.st	Thu Feb 22 16:23:17 2007 +0100
@@ -6889,7 +6889,9 @@
 
 	memcpy(&ifreq, ifr, sizeof(ifreq));
 	if (ioctl (afinet_socket, SIOCGIFFLAGS, &ifreq) < 0) {
-	    fprintf(stderr, "ioctl(SIOCGIFFLAGS) failed");
+	    if (@global(InfoPrinting) == true) {
+		fprintf(stderr, "OS [warning]: ioctl(SIOCGIFFLAGS) failed");
+	    }
 	} else {
 	    /*
 	    ** Get Hardware address for this interface
@@ -9300,7 +9302,7 @@
 	    if (fd != nil) {
 		if (! __isSmallInteger(fd)) {
 		    if (@global(InfoPrinting) == true) {
-			fprintf(stderr, "[OS] warning: funny read-fd (0x%x) given to select\n", fd);
+			fprintf(stderr, "OS [warning]: funny read-fd (0x%x) given to select\n", fd);
 		    }
 		} else {
 		    int f;
@@ -9312,7 +9314,7 @@
 			numFds++;
 		    } else {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: huge read-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: huge read-fd (0x%x) given to select\n", fd);
 			}
 		    }
 		}
@@ -9334,7 +9336,7 @@
 	    if (fd != nil) {
 		if (! __isSmallInteger(fd)) {
 		    if (@global(InfoPrinting) == true) {
-			fprintf(stderr, "[OS] warning: funny write-fd (0x%x) given to select\n", fd);
+			fprintf(stderr, "OS [warning]: funny write-fd (0x%x) given to select\n", fd);
 		    }
 		} else {
 		    int f;
@@ -9346,7 +9348,7 @@
 			numFds++;
 		    } else {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: huge write-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: huge write-fd (0x%x) given to select\n", fd);
 			}
 		    }
 		}
@@ -9368,7 +9370,7 @@
 	    if (fd != nil) {
 		if (! __isSmallInteger(fd)) {
 		    if (@global(InfoPrinting) == true) {
-			fprintf(stderr, "[OS] warning: funny except-fd (0x%x) given to select\n", fd);
+			fprintf(stderr, "OS [warning]: funny except-fd (0x%x) given to select\n", fd);
 		    }
 		} else {
 		    int f;
@@ -9380,7 +9382,7 @@
 			numFds++;
 		    } else {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: huge except-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: huge except-fd (0x%x) given to select\n", fd);
 			}
 		    }
 		}
@@ -9529,7 +9531,7 @@
 		if (fd != nil) {
 		    if (! __isSmallInteger(fd)) {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: funny read-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: funny read-fd (0x%x) given to select\n", fd);
 			}
 		    } else {
 			f = __intVal(fd);
@@ -9539,7 +9541,7 @@
 			    numFds++;
 			} else {
 			    if (@global(InfoPrinting) == true) {
-				fprintf(stderr, "[OS] warning: huge read-fd (0x%x) given to select\n", fd);
+				fprintf(stderr, "OS [warning]: huge read-fd (0x%x) given to select\n", fd);
 			    }
 			}
 		    }
@@ -9557,7 +9559,7 @@
 		if (fd != nil) {
 		    if (! __isSmallInteger(fd)) {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: funny write-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: funny write-fd (0x%x) given to select\n", fd);
 			}
 		    } else {
 			f = __intVal(fd);
@@ -9567,7 +9569,7 @@
 			    numFds++;
 			} else {
 			    if (@global(InfoPrinting) == true) {
-				fprintf(stderr, "[OS] warning: huge write-fd (0x%x) given to select\n", fd);
+				fprintf(stderr, "OS [warning]: huge write-fd (0x%x) given to select\n", fd);
 			    }
 			}
 		    }
@@ -9585,7 +9587,7 @@
 		if (fd != nil) {
 		    if (! __isSmallInteger(fd)) {
 			if (@global(InfoPrinting) == true) {
-			    fprintf(stderr, "[OS] warning: funny except-fd (0x%x) given to select\n", fd);
+			    fprintf(stderr, "OS [warning]: funny except-fd (0x%x) given to select\n", fd);
 			}
 		    } else {
 			f = __intVal(fd);
@@ -9595,7 +9597,7 @@
 			    numFds++;
 			} else {
 			    if (@global(InfoPrinting) == true) {
-				fprintf(stderr, "[OS] warning: huge except-fd (0x%x) given to select\n", fd);
+				fprintf(stderr, "OS [warning]: huge except-fd (0x%x) given to select\n", fd);
 			    }
 			}
 		    }
@@ -10291,34 +10293,6 @@
 	    }
 	}
 # endif /* FIONREAD */
-
-# if defined(__VMS__) && defined(DOES_NOT_WORK_YET)
-	{
-	    /*
-	     * do a sys$qio ..
-	     * fd here is suposed to be a channel nr.
-	     */
-	    struct IOSB iosb;
-	    int status;
-	    int channel;
-	    struct typahdask sensebuf;
-
-	    status = SYS$QIO(0, /* efn */
-			     fd,
-			     IO$_SENSEMODE | IO$M_TYPEAHDCNT,
-			     &iosb,
-			     0, /* ast */
-			     0, /* ast arg */
-			     &sensebuf,         /* data */
-			     sizeof(sensebuf),  /* data size */
-			     0, 0, 0, 0);
-	    if (status != SS$_NORMAL) {
-		fprintf(stderr, "OS [info]: SYS$QIO failed on %d\n", fd);
-	    } else {
-		fprintf(stderr, "sys$QIO -> %d\n", sensebuf.typcnt);
-	    }
-	}
-# endif /* __VMS__ */
     }
 %}.
 
@@ -12481,7 +12455,7 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.238 2007-01-22 15:41:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.239 2007-02-22 15:23:17 cg Exp $'
 ! !
 
 UnixOperatingSystem initialize!