Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.542.2.59 -r1.542.2.60
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Jan 2020 10:51:31 -0000	1.542.2.59
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Jan 2020 10:54:36 -0000	1.542.2.60
@@ -2309,7 +2309,7 @@
 
   Page instforward item_ref {%my package_id} %proc
 
-  Page instproc pretty_link {
+  Page ad_instproc pretty_link {
     {-anchor ""}
     {-query ""}
     {-absolute:boolean false}
@@ -2318,8 +2318,8 @@
     {-download false}
     {-path_encode:boolean true}
   } {
-    # return the pretty_link for the current page
-
+    @return the pretty_link for the current page
+  } {
     # Make sure package is initialized
     if {![nsf::is object ::${:package_id}]} {
       ::xowiki::Package initialize -package_id ${:package_id}