Index: openacs-4/packages/acs-admin/www/apm/file-watch.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/file-watch.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-admin/www/apm/file-watch.tcl	26 Mar 2003 15:51:47 -0000	1.8
+++ openacs-4/packages/acs-admin/www/apm/file-watch.tcl	2 Apr 2003 15:58:18 -0000	1.9
@@ -15,7 +15,7 @@
 foreach path $paths {
     incr count
 
-    apm_file_watch $path
+    apm_file_watch "packages/$package_key/$path"
 
     lappend path_list $path
 }
Index: openacs-4/packages/acs-admin/www/apm/version-files.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-files.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-admin/www/apm/version-files.tcl	25 Feb 2003 17:10:05 -0000	1.9
+++ openacs-4/packages/acs-admin/www/apm/version-files.tcl	2 Apr 2003 15:58:18 -0000	1.10
@@ -75,8 +75,9 @@
                              <td width=40>&nbsp;</td>"
 
 		if { $installed_p == "t" } {
-		    if { $file_type == "tcl_procs" || ($file_type == "query_file" && [db_compatible_rdbms_p $db_type]) } {
-			if { [nsv_exists apm_reload_watch "packages/$package_key/$path"] } {
+                    set server_rel_path "packages/$package_key/$path"
+		    if { [apm_file_watchable_p $server_rel_path] } {
+			if { [nsv_exists apm_reload_watch $server_rel_path] } {
 			    # This procs file is already being watched.
 			    doc_body_append "<td>&nbsp;watch&nbsp;</td>"
 			} else {