Index: src/interfaces/ecpg/preproc/preproc.y
===================================================================
RCS file: /cvsroot/pgsql-server/src/interfaces/ecpg/preproc/preproc.y,v
retrieving revision 1.204
diff -c -c -r1.204 preproc.y
*** src/interfaces/ecpg/preproc/preproc.y	12 Dec 2002 21:50:01 -0000	1.204
--- src/interfaces/ecpg/preproc/preproc.y	13 Dec 2002 20:27:24 -0000
***************
*** 554,560 ****
  			if (connection)
  				mmerror(PARSE_ERROR, ET_ERROR, "no at option for disconnect statement.\n");
  
! 			fprintf(yyout, "{ ECPGdisconnect(__LINE__, %s);", $1);
  			whenever_action(2);
  			free($1);
  		}
--- 554,561 ----
  			if (connection)
  				mmerror(PARSE_ERROR, ET_ERROR, "no at option for disconnect statement.\n");
  
! 			fprintf(yyout, "{ ECPGdisconnect(__LINE__, %s);",
! 					$1 ? $1 : "\"CURRENT\"");
  			whenever_action(2);
  			free($1);
  		}