--- a/Unix.st	Sun Dec 12 21:53:21 1993 +0100
+++ b/Unix.st	Sun Dec 12 21:54:23 1993 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.6 1993-12-11 00:59:35 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.7 1993-12-12 20:54:23 claus Exp $
 
 written 1988 by claus
 '!
@@ -1416,9 +1416,9 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         RETURN ( ret ? false : true );
     }
 %}
@@ -1437,9 +1437,9 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if ((ret < 0) || ((buf.st_mode & S_IFMT) != S_IFDIR)) {
             RETURN ( false );
         }
@@ -1531,10 +1531,11 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret < 0) {
+            ErrorNumber = _MKSMALLINT(errno);
             RETURN ( nil );
         }
         switch (buf.st_mode & S_IFMT) {
@@ -1616,10 +1617,11 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret < 0) {
+            ErrorNumber = _MKSMALLINT(errno);
             RETURN ( nil );
         }
         RETURN ( _MKSMALLINT(buf.st_mode & 0777) );
@@ -1658,13 +1660,14 @@
     time_t mtime;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret >= 0) {
             timeLow = _MKSMALLINT(buf.st_mtime & 0xFFFF);
             timeHi = _MKSMALLINT((buf.st_mtime >> 16) & 0xFFFF);
         }
+        ErrorNumber = _MKSMALLINT(errno);
     }
 %}
 .
@@ -1685,13 +1688,14 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret >= 0) {
             timeLow = _MKSMALLINT(buf.st_atime & 0xFFFF);
             timeHi = _MKSMALLINT((buf.st_atime >> 16) & 0xFFFF);
         }
+        ErrorNumber = _MKSMALLINT(errno);
     }
 %}
 .
@@ -1717,12 +1721,13 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret >= 0) {
             RETURN (_MKSMALLINT(buf.st_ino));
         }
+        ErrorNumber = _MKSMALLINT(errno);
     }
 %}
 .
@@ -1747,10 +1752,11 @@
     extern errno;
 
     if (_isString(aPathName)) {
-	do {
+        do {
             ret = stat((char *) _stringVal(aPathName), &buf);
-	} while (ret < 0 && errno == EINTR);
+        } while (ret < 0 && errno == EINTR);
         if (ret < 0) {
+            ErrorNumber = _MKSMALLINT(errno);
             RETURN ( nil );
         }
         switch (buf.st_mode & S_IFMT) {