Index: openacs-4/packages/wp-slim/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/wp-slim/www/index.tcl	1 Mar 2005 00:01:46 -0000	1.9
+++ openacs-4/packages/wp-slim/www/index.tcl	27 Jun 2015 20:34:41 -0000	1.10
@@ -24,7 +24,7 @@
 set show_age_value "show_age=$show_age"
 
 if {$show_age != 0} {
-    if {[db_type] == "oracle"} {
+    if {[db_type] eq "oracle"} {
         set extra_where_clauses "and ao.creation_date >= (sysdate - $show_age)"
     } else {
         set extra_where_clauses "and ao.creation_date >= (now() - interval '$show_age days')"
@@ -45,7 +45,7 @@
 	set creation_date [lc_time_fmt $creation_date "%Q"]
     }
 
-    if {$show_user == "all"} {
+    if {$show_user eq "all"} {
 	db_multirow allpresentations get_all_visible_presentations { *SQL* } {
 	    set creation_date [lc_time_fmt $creation_date "%Q"]
 	}