Index: openacs-4/packages/acs-admin/www/apm/version-reload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-reload.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/version-reload.tcl	10 Mar 2003 12:23:12 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/version-reload.tcl	17 May 2003 09:36:29 -0000	1.5
@@ -28,8 +28,12 @@
 	} else {
 	    # This file isn't being watched right now - provide a link setting a watch on it.
 	    set files_to_watch_p 1
-	    doc_body_append " (<a href=\"file-watch?[export_vars { version_id { paths $file } }]\">watch this file</a>)"
-            lappend files_to_watch $file
+
+            # Remove the two first elements of the path, namely packages/package-key/
+            set local_path [eval [concat file join [lrange [file split $file] 2 end]]]
+
+	    doc_body_append " (<a href=\"file-watch?[export_vars { version_id { paths $local_path } }]\">watch this file</a>)"
+            lappend files_to_watch $local_path
 	}
 	doc_body_append "\n"
     }
@@ -49,4 +53,3 @@
 <a href=\"index\">Return to the Package Manager</a>
 [ad_footer]
 "
-