Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.32
diff -u -r1.32 tclVar.c
--- generic/tclVar.c	2001/05/17 02:13:03	1.32
+++ generic/tclVar.c	2001/05/21 20:12:47
@@ -4012,6 +4012,11 @@
     Tcl_Obj *varValuePtr;
     int i, result;
 
+    if(objc < 2) {
+	Tcl_WrongNumArgs(interp, 1, objv, "?name value...? name ?value?");
+	return TCL_ERROR;
+    }
+
     for (i = 1;  i < objc;  i = i+2) {
 	/*
 	 * Look up each variable in the current namespace context, creating
