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 -N -r1.37 -r1.38
--- openacs-4/packages/forums/www/forum-view.tcl	27 Sep 2017 17:05:00 -0000	1.37
+++ openacs-4/packages/forums/www/forum-view.tcl	24 Jul 2018 14:37:10 -0000	1.38
@@ -14,13 +14,17 @@
     page_size:naturalnum,optional,notnull
 }
 
-
-# Get forum data
-if {[catch {forum::get -forum_id $forum_id -array forum} errMsg]} {
-    if {$::errorCode eq "NOT_FOUND"} {
-        ns_returnnotfound
-        ad_script_abort
-    }
+ad_try {
+    #
+    # Get forum data
+    #
+    forum::get -forum_id $forum_id -array forum
+    
+} trap NOT_FOUND {} {
+    ns_returnnotfound
+    ad_script_abort
+    
+} on error {errMsg} {
     error $errMsg $::errorInfo $::errorCode
 }