Index: openacs-4/packages/file-storage/www/file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file.tcl,v
diff -u -N -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/file-storage/www/file.tcl	9 Dec 2002 22:43:19 -0000	1.8.2.1
+++ openacs-4/packages/file-storage/www/file.tcl	2 Jun 2003 16:53:09 -0000	1.8.2.2
@@ -74,8 +74,9 @@
 
 db_multirow version version_info $sql
 
-if { [apm_package_installed_p "general-comments"] && [ad_parameter "GeneralCommentsP" -default 0] } {
-    set return_url "[ad_conn url]?file_id=$file_id"
+set return_url "[ad_conn url]?file_id=$file_id"
+
+if { [apm_package_installed_p "general-comments"] && [ad_parameter "GeneralCommentsP" -package_id [ad_conn package_id]] } {
     set gc_link [general_comments_create_link $file_id $return_url]
     set gc_comments [general_comments_get_comments $file_id $return_url]
 } else {