Add missing call to long_to_integer.

diff --git a/v7/src/microcode/prdosenv.c b/v7/src/microcode/prdosenv.c
index 1a35a827a91e558249067b43caba48196d894664..7c7ff5cf88cca4157974e04aae7064ea4dc92ffc 100644 (file)
--- a/v7/src/microcode/prdosenv.c
+++ b/v7/src/microcode/prdosenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prdosenv.c,v 1.5 1992/10/01 18:18:05 jinx Exp $
+$Id: prdosenv.c,v 1.6 1992/10/01 18:51:28 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -146,7 +146,7 @@ Wait until the command terminates, returning its exit status as an integer.")
                            (arg_io_spec (4))));
   if (result < -1)
     error_external_return ();
-  PRIMITIVE_RETURN ((long) result);
+  PRIMITIVE_RETURN (long_to_integer ((long) result));
 }
 \f
 DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-MODIFIER-MASK!", Prim_dos_set_kbd_mod_mask,