Index: openacs-4/packages/forums/www/forum-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/forum-view.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/forums/www/forum-view.tcl	23 Dec 2007 14:50:15 -0000	1.29
+++ openacs-4/packages/forums/www/forum-view.tcl	20 Sep 2008 12:10:28 -0000	1.30
@@ -16,15 +16,15 @@
 
 # Get forum data
 if {[catch {forum::get -forum_id $forum_id -array forum} errMsg]} {
-    if {[string equal $::errorCode NOT_FOUND]} {
+    if {$::errorCode eq "NOT_FOUND"} {
         ns_returnnotfound
         ad_script_abort
     }
     error $errMsg $::errorInfo $::errorCode
 }
 
 # If disabled!
-if {$forum(enabled_p) != "t"} {
+if {$forum(enabled_p) ne "t"} {
     ad_returnredirect "./"
     ad_script_abort
 }
@@ -33,7 +33,7 @@
 forum::security::permissions -forum_id $forum_id permissions
 
 #it is confusing to provide a moderate link for non-moderated forums.
-if { $forum(posting_policy) != "moderated" } {
+if { $forum(posting_policy) ne "moderated" } {
     set permissions(moderate_p) 0
 }