--- parser3/src/main/compile.y	2001/03/08 13:13:40	1.76
+++ parser3/src/main/compile.y	2001/03/08 17:08:14	1.78
@@ -1,5 +1,5 @@
 /*
-  $Id: compile.y,v 1.76 2001/03/08 13:13:40 paf Exp $
+  $Id: compile.y,v 1.78 2001/03/08 17:08:14 paf Exp $
 */
 
 %{
@@ -344,13 +344,14 @@ store_expr_param_parts:
 |	store_expr_param_parts ';' store_expr_param_part { $$=$1; P($$, $3) }
 ;
 store_code_param_part: 
-	empty /* optimized () case */
-|	STRING { /* optimized (STRING) case */
+	empty /* optimized [] case */
+|	STRING { /* optimized [STRING] case */
 	$$=$1;
 	O($$, OP_STORE_PARAM);
 }
-|	constructor_code_value { /* (something complex) */
+|	constructor_code_value { /* [something complex] */
 	$$=$1;
+	O($$, OP_STORE_PARAM);
 }
 ;
 store_expr_param_part: write_expr_value {
@@ -494,7 +495,7 @@ write_str_literal: STRING {
 	O($$, OP_WRITE);
 };
 
-empty_double_value: /* empty */ { $$=VL(NEW VDouble(POOL)) };
+empty_double_value: /* empty */ { $$=VL(NEW VDouble(*NEW Double(POOL, 0))) };
 empty_string_value: /* empty */ { $$=VL(NEW VString(POOL)) };
 empty: /* empty */ { $$=N(POOL) };