* stream.c (getcwd_wrap): Implement correct test of getcwd's

return value.

2 files changed, 7 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 94ba515d..6b61e25a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-02-25  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (getcwd_wrap): Implement correct test of getcwd's
+	return value.
+
+2014-02-25  Kaz Kylheku  <kaz@kylheku.com>
+
 	* configure: Use -Werror= on the missing prototypes and
 	strict prototypes warnings; these should be errors.
 
diff --git a/stream.c b/stream.c
index 190932d8..68a1e772 100644
--- a/stream.c
+++ b/stream.c
@@ -2424,7 +2424,8 @@ val getcwd_wrap(void)
 
   for (;;) {
     char *u8buf = (char *) chk_malloc(guess);
-    if (getcwd(u8buf, 256) < 0) {
+
+    if (getcwd(u8buf, guess) == 0) {
       free(u8buf);
       if (errno != ERANGE) {
         uw_throwf(file_error_s, lit("getcwd: ~a/~s"),