Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	17 Mar 2003 20:19:00 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	28 Aug 2003 09:41:43 -0000	1.11
@@ -1,7 +1,7 @@
 ad_library {
     This is the table, dimensional bar and sort tools.
     an example of their use can be found in /acs-examples
-    @cvs-id $Id$
+    @cvs-id table-display-procs.tcl,v 1.9 2002/09/20 22:18:16 jeffd Exp
 }
     
 # Dimensional selection bars.
@@ -860,7 +860,7 @@
 proc_doc ad_same_page_link {variable value text {form ""}} {
     Makes a link to this page, with a new value for "variable".
 } {
-    if [empty_string_p $form] {
+    if { [empty_string_p $form] } {
         set form [ns_getform]
     }
     set url_vars [export_ns_set_vars url $variable $form]