***************
*** 56,62 ****
     might move while in the closure.  */
    object *p;
    if (type_of(x) != t_closure)
-     { FEerror(1,"Not a closure");}
    if (x->cl.cl_envdim < n)
      {BEGIN_NO_INTERRUPT; x->cl.cl_env = (object *)alloc_contblock(n);
       x->cl.cl_envdim = n;
--- 56,62 ----
     might move while in the closure.  */
    object *p;
    if (type_of(x) != t_closure)
+     { FEerror("Not a closure",0);}
    if (x->cl.cl_envdim < n)
      {BEGIN_NO_INTERRUPT; x->cl.cl_env = (object *)alloc_contblock(n);
       x->cl.cl_envdim = n;