********> bugfix.14
Author:    Bill Ross
Date:      1/31/98

Programs:  Carnal

Severity:  Moderate

Description:  "DISTRIBUTION DIST {1 group} NORM" fails with 'NaN' values.

Fix:  Apply the following changes to distrib.c:
--------------------------------------------------------------------------
*** OLD distrib.c
--- NEW distrib.c
***************
*** 352,357
  			if (dbptr->idunion.db.minfile != NULL)
  		  		inerr("DISTRIBUTION .. gid:", 
  						"need 2 groups for MIN");
  		}
  
  		if (!strcmp(tok, "NORM")) {

--- 352,359 -----
  			if (dbptr->idunion.db.minfile != NULL)
  		  		inerr("DISTRIBUTION .. gid:", 
  						"need 2 groups for MIN");
+ 			dbptr->idunion.db.self++;
+ 			dbptr->idunion.db.callcase = dbptr->idunion.db.n1;
  		}
  
  		if (!strcmp(tok, "NORM")) {
--------------------------------------------------------------------------