Index: openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl,v
diff -u -r1.14 -r1.14.6.1
--- openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl	15 May 2007 20:14:28 -0000	1.14
+++ openacs-4/packages/dotlrn-forums/tcl/dotlrn-forums-procs.tcl	18 Aug 2014 21:43:32 -0000	1.14.6.1
@@ -138,7 +138,7 @@
             -parameter auto_create_forum_name \
         ]
 
-        if {[string equal $auto_create_forum_p t]} {
+        if {$auto_create_forum_p == "t"} {
             forum::new \
                 -name $auto_create_forum_name \
                 -package_id $package_id
@@ -282,7 +282,7 @@
 
         set type [dotlrn::get_type_from_portal_id -portal_id $portal_id]
 
-        if {[string equal $type user]} {
+        if {$type eq "user"} {
             # portal_id is a user portal template
             ns_set put $args display_group_name_p t
         }
Index: openacs-4/packages/dotlrn-forums/www/user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-forums/www/user.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/dotlrn-forums/www/user.tcl	15 May 2007 20:14:29 -0000	1.4
+++ openacs-4/packages/dotlrn-forums/www/user.tcl	18 Aug 2014 21:43:32 -0000	1.4.6.1
@@ -26,7 +26,7 @@
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
 
 set query select_messages
-if {[string equal $view forum]} {
+if {$view eq "forum"} {
     set query select_messages_by_forum
 }