Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	12 Nov 2002 08:53:07 -0000	1.10
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	28 Aug 2003 09:41:43 -0000	1.11
@@ -4,7 +4,7 @@
 
     @author Multiple
     @creation-date 11/18/98
-    @cvs-id $Id$
+    @cvs-id admin-procs.tcl,v 1.9 2002/09/18 18:55:29 jeffd Exp
 
 }
 
@@ -432,15 +432,15 @@
     if { [llength $join_clauses] == 0 } {
 	set final_query "select [join $select_list ",\n    "]
 	from [join $tables ", "]"
-	if ![empty_string_p $complete_where] {
+	if { ![empty_string_p $complete_where] } {
 	    append final_query "\nwhere $complete_where"
 	}
     } else {
 	# we're joining at 
 	set final_query "select [join $select_list ",\n    "]
 	from [join $tables ", "]
 	where [join $join_clauses "\nand "]"
-	if ![empty_string_p $complete_where] {
+	if { ![empty_string_p $complete_where] } {
 	    append final_query "\n and ($complete_where)"
 	}
     }