Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/forums/tcl/forums-procs.tcl	30 Mar 2005 17:14:01 -0000	1.16
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	28 Apr 2005 13:32:34 -0000	1.17
@@ -72,7 +72,9 @@
 } {
     # Select the info into the upvar'ed Tcl Array
     upvar $array row
-    db_1row select_forum {} -column_array row
+    if {![db_0or1row select_forum {} -column_array row]} {
+        error "Forum $forum_id not found" {} NOT_FOUND
+    }
 }
 
 ad_proc -public forum::posting_policy_set {
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.25 -r1.26
--- openacs-4/packages/forums/www/forum-view.tcl	13 Jan 2005 13:58:17 -0000	1.25
+++ openacs-4/packages/forums/www/forum-view.tcl	28 Apr 2005 13:32:34 -0000	1.26
@@ -14,7 +14,13 @@
 
 
 # Get forum data
-forum::get -forum_id $forum_id -array forum
+if {[catch {forum::get -forum_id $forum_id -array forum} errMsg]} {
+    if {[string equal $::errorCode NOT_FOUND]} {
+        ns_returnnotfound
+        ad_script_abort
+    }
+    error $errMsg $::errorInfo $::errorCode
+}
 
 # If disabled!
 if {$forum(enabled_p) != "t"} {