Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.58.2.1 -r1.58.2.2
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Nov 2003 09:14:49 -0000	1.58.2.1
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	27 Nov 2003 12:19:42 -0000	1.58.2.2
@@ -1637,6 +1637,9 @@
 ad_proc -public exists_and_not_null { varname } {
     Returns 1 if the variable name exists in the caller's environment and 
     is not the empty string.
+
+    Note you should enter the variable name, and not the variable value 
+    (varname not $varname which will pass variable varnames value into this function).
 } {
     upvar 1 $varname var 
     return [expr { [info exists var] && ![empty_string_p $var] }]