Index: openacs-4/packages/xotcl-core/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/doc-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	18 May 2018 09:32:08 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/doc-procs.tcl	30 Mar 2019 19:34:01 -0000	1.6.2.1
@@ -46,7 +46,7 @@
         } else {
             set style ""
         }
-        set url [export_vars -base show-object [list [list object $e]]]
+        set url [export_vars -base show-object {{object $e}}
         append definition "[dotquote $e] \[${style}URL=\"$url\",label=\"\{$e|"
         foreach slot [$e info slots] {
             set name ""
@@ -67,7 +67,7 @@
 
     ad_proc dotobject {e} {
     } {
-        set url [export_vars -base show-object [list [list object $e]]]
+        set url [export_vars -base show-object {{object $e}}]
         set definition "[dotquote $e] \[URL=\"$url\"\];\n";
     }