--- gforth/prim	2001/01/09 16:11:35	1.69
+++ gforth/prim	2001/01/14 22:53:19	1.70
@@ -2157,8 +2157,10 @@ if(dent == NULL) {
   flag = 0;
 } else {
   u2 = strlen(dent->d_name);
-  if(u2 > u1)
+  if(u2 > u1) {
     u2 = u1;
+    wior = -512-ENAMETOOLONG;
+  }
   memmove(c_addr, dent->d_name, u2);
 }