--- o/eval.c~	Tue Sep 24 21:01:45 2002
+++ o/eval.c	Thu Nov 21 17:28:51 2002
@@ -1175,7 +1175,8 @@
 
 	/* 1 args */
 	lex_new();
-	eval(vs_base[0]);
+	/*eval(vs_base[0]);*/
+	eval(x0);
 	lex_env = lex;
 	return Ivs_values();
 }