diff --git a/src/c/file.d b/src/c/file.d
index 997ca1685..6030c9b9f 100755
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -5082,7 +5082,7 @@ si_copy_stream(cl_object in, cl_object out, cl_object wait)
     }
   }
   ecl_force_output(out);
-  @(return c==EOF);
+  @(return ((c==EOF) ? ECL_T : ECL_NIL));
 }