--- cvsroot/microscheme/scheme.c	2015/11/28 10:54:41	1.31
+++ cvsroot/microscheme/scheme.c	2015/11/28 10:56:45	1.32
@@ -2938,15 +2938,13 @@
           break;
 
       if (y != NIL)
+        return car (y);
         break;
 
       if (!all)
-        return NIL;
+        break;
     }
 
-  if (x != NIL)
-    return car (y);
-
   return NIL;
 }