Index: openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl	2 Oct 2013 07:23:44 -0000	1.1
+++ openacs-4/packages/acs-outdated/tcl/acs-tcl-admin-procs.tcl	26 Oct 2013 09:33:21 -0000	1.2
@@ -79,7 +79,7 @@
 		    
 		}
 		"intranet_user_p" {
-		    if {$intranet_user_p eq "t" && [lsearch $tables "intranet_users"] == -1 } {
+		    if {$intranet_user_p == "t" && [lsearch $tables "intranet_users"] == -1 } {
 			lappend tables "intranet_users"
 			lappend join_clauses "users.user_id = intranet_users.user_id"
 		    }