diff --git a/libguile/vm.c b/libguile/vm.c
index 18f219249..92d568059 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -903,6 +903,7 @@ return_unused_stack_to_os (struct scm_vm *vp)
       do
         ret = madvise ((void *) lo, hi - lo, MADV_DONTNEED);
       while (ret && errno == -EAGAIN);
+      while (ret && errno == EAGAIN);
 
       if (ret)
         perror ("madvise failed");