--- capa/capa51/pProj/capaFunction.c	2000/09/14 20:25:12	1.11
+++ capa/capa51/pProj/capaFunction.c	2002/09/24 15:10:40	1.15
@@ -773,7 +773,7 @@ ArgNode_t  *argp;
                 case R_VAR: case R_CONSTANT: break;
                 case S_VAR: case S_CONSTANT: 
                        leng = strlen(FIRST_ARGSTR(argp));
-		       if( (index(FIRST_ARGSTR(argp), ' ') != NULL) ) {
+		       if( (index(FIRST_ARGSTR(argp), ',') != NULL) ) {
 			 sscanf(FIRST_ARGSTR(argp),"%ld,%ld", &seed1, &seed2);
                          setall(seed1,seed2);
                        }
@@ -830,10 +830,10 @@ ArgNode_t  *argp;
                         errCode = 1;
                         break;
                     case S_VAR: case S_CONSTANT:
-                        mean_vec_str = SECOND_ARGSTR(argp);
+                        mean_vec_str = strsave( SECOND_ARGSTR(argp) );
                         break;
                     case IDENTIFIER:
-                        mean_vec_str = SECOND_ARGNAME(argp);
+                        mean_vec_str = strsave( SECOND_ARGNAME(argp) );
                         /*
                         resultp->s_type = S_CONSTANT;
                         resultp->s_str  = strsave("<<THE FIFTH ARG. OF THIS FUNCTION MUST BE AN ARRAY WITH DATA>>");
@@ -1161,7 +1161,7 @@ ArgNode_t  *argp;
                      break;
               } /* end second switch */
             } break;
-   case ARRAY_MOMENTS_F: /*  */
+   case ARRAY_MOMENTS_F: /*  array_moments(output,input) */
             { 
               char       *tmp_input;
               Symbol     *r_p;
@@ -1611,7 +1611,7 @@ ArgNode_t  *argp;
                                 sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n",FuncStack[Func_idx].s_name);
                                 capa_msg(MESSAGE_ERROR,tmpS);
                               } else {
-                                if( FIRST_ARGINT(argp) <= 20 ) {
+                                if( FIRST_ARGINT(argp) <= 12 ) {
                                   resultp->s_type =  I_CONSTANT;
                                   l_fac = 1;
                                   for(ii=2; ii <= FIRST_ARGINT(argp); ii++) { l_fac *= ii;  }
@@ -1634,7 +1634,7 @@ ArgNode_t  *argp;
                                 sprintf(tmpS,"%s()'s arg. cannot be less than zero.\n", FuncStack[Func_idx].s_name);
                                 capa_msg(MESSAGE_ERROR,tmpS);
                               } else {
-                                if( FIRST_ARGREAL(argp) <= 20.0 ) {
+                                if( FIRST_ARGREAL(argp) <= 13.0 ) {
                                   resultp->s_type =  I_CONSTANT;
                                   l_fac = 1;
                                   for(ii=2; ii <= FIRST_ARGREAL(argp); ii++)  { l_fac *= ii; }