Index: openacs-4/packages/lors/tcl/lors-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lors/tcl/lors-procs.tcl	12 Jun 2006 01:52:19 -0000	1.4
+++ openacs-4/packages/lors/tcl/lors-procs.tcl	30 Nov 2006 16:26:04 -0000	1.5
@@ -35,6 +35,7 @@
     if {$object_type eq "content_item"} {
         set object_type [content::item::content_type -item_id $object_id]
     }
+    ns_log notice "lors::object_Url object_id='${object_id}'"
     switch $url {
         admin {
             
@@ -49,9 +50,9 @@
                                 {assessment_id}]
                 }
                 "::xowiki::Page" {
-                    return [export_vars \
-                                -base /wiki/edit \
-                                {{item_id $object_id}}]
+	            set page [::xowiki::Package instantiate_page_from_id -item_id $object_id]
+		    return [$page make_link -privilege public -url [$page name] $page edit ""]
+
                 }
             }