Index: openacs-4/packages/acs-content-repository/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/search-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/search-procs.tcl	9 Sep 2001 18:10:13 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/search-procs.tcl	10 Sep 2001 12:43:23 -0000	1.3
@@ -45,15 +45,15 @@
 
     set package_id [apm_package_id_from_key acs-content-repository]
     db_1row get_url_stub "
-        select site_node__url(node_id) || 
+        select site_node__url(node_id) as root_url,
                (select content_item__get_path(item_id,null) 
                   from cr_revisions
                  where revision_id = :object_id) as url
           from site_nodes n
          where n.object_id = :package_id        
     "
     
-    return $url
+    return "[string trimright $root_url /]$url"
 }
 
 ad_proc content_search__search_ids {