Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	23 Oct 2024 11:47:00 -0000	1.27
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	23 Oct 2024 17:08:21 -0000	1.28
@@ -247,6 +247,18 @@
     return $scope
   }
 
+  :public object method object_from_proc_index {proc_index} {
+    #
+    # Parse the proc_index and return the scope from it.
+    #
+    set object ""
+    if {[regexp { *([^ ].+) (inst)?proc (.+)$} $proc_index . object]
+        || [regexp { (Class|Object) (.+)$} $proc_index . what object]
+      } {
+    }
+    return $object
+  }
+  
   :public object method script_name {-obj scope} {
     #
     # Determine name of the current "script" as displayed by "Defined