Index: openacs.org-dev/packages/edit-this-page/tcl/etp-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/tcl/etp-sc-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/tcl/etp-sc-procs.tcl	26 Sep 2002 20:00:19 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/tcl/etp-sc-procs.tcl	27 Sep 2002 01:43:44 -0000	1.2
@@ -27,10 +27,12 @@
     @author Dave Bauer
 } {
 ns_log notice "DAVEB: object_id=$object_id"
-	db_1row revision_url "select name as url, parent_id from cr_items 
-	where live_revision = :object_id"
+	db_0or1row revision_url "select name as url, parent_id from cr_items 
+	where item_id = (select item_id from cr_revisions
+                         where revision_id=object_id)"
+  
 	set package_url [db_string package_url "select site_node__url(node_id) as package_url from site_nodes where object_id =(select package_id from cr_folders where folder_id= :parent_id"]
-
+    
     return "${package_url}${url}"
 }