Index: openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	12 Mar 2002 05:04:32 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	25 Mar 2002 05:28:09 -0000	1.2
@@ -127,4 +127,14 @@
             }
         }
     }
+
+    ad_proc -public vars_to_ns_set {
+	{-ns_set:required}
+	{-var_list:required}
+    } {
+	foreach var $var_list {
+	    upvar $var one_var
+	    ns_set put $ns_set $var $one_var
+	}
+    }
 }