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.2.2.2 -r1.2.2.3
--- openacs-4/packages/acs-admin/www/apm/version-reload.tcl	10 Mar 2003 12:39:23 -0000	1.2.2.2
+++ openacs-4/packages/acs-admin/www/apm/version-reload.tcl	23 Apr 2003 08:31:14 -0000	1.2.2.3
@@ -28,7 +28,11 @@
 	} 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>)"
+
+            # 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 $file
 	}
 	doc_body_append "\n"