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.15 -r1.16
--- openacs-4/packages/forums/tcl/forums-procs.tcl	13 Jan 2005 13:58:16 -0000	1.15
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	30 Mar 2005 17:14:01 -0000	1.16
@@ -45,9 +45,13 @@
 }
 
 ad_proc -public forum::attachments_enabled_p {} {
-    set package_id [site_node_apm_integration::child_package_exists_p \
-        -package_key attachments
-    ]
+    if {[string eq forums [ad_conn package_key]]} { 
+	set package_id [site_node_apm_integration::child_package_exists_p \
+			    -package_key attachments
+		       ]
+    } else { 
+	return 0
+    }
 }
 
 ad_proc -public forum::list_forums {