Index: openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl	1 Nov 2003 08:45:38 -0000	1.4
+++ openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl	13 Jan 2005 13:58:04 -0000	1.5
@@ -44,9 +44,9 @@
 } {
     db_1row revision_url {}
   
-    set package_url [db_string package_url {}]
+    set package_url [db_string package_url {} -default "/"]
     
-    return "[ad_url]${package_url}${url}"
+    return [string trimright "[ad_url]${package_url}${url}" "index"]
 }
 
 ad_proc etp::create_search_impl {