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.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	19 Feb 2006 19:33:27 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/openacs-kernel-procs.tcl	10 Jan 2007 21:22:12 -0000	1.9
@@ -25,7 +25,7 @@
     set csv_stream [open $file r]
 
     # Check if there are headers
-    if {![empty_string_p $override_headers]} {
+    if {$override_headers ne ""} {
         set headers $override_headers
     } else {
         if {!$header_line} {
@@ -61,7 +61,7 @@
             }
 
             # Add in the constants
-            if {![empty_string_p $constants]} {
+            if {$constants ne ""} {
                 # This modifies extra_vars, without touching constants
                 ns_set merge $constants $extra_vars
             }
@@ -97,7 +97,7 @@
     set csv_stream [open $file r]
 
     # Check if there are headers
-    if {![empty_string_p $override_headers]} {
+    if {$override_headers ne ""} {
         set headers $override_headers
     } else {
         if {!$header_line} {