Index: openacs-4/contrib/obsolete-packages/library/tcl/km-access-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/library/tcl/km-access-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/library/tcl/km-access-procs.tcl	2 Jul 2003 12:19:41 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/library/tcl/km-access-procs.tcl	13 Feb 2009 20:40:39 -0000	1.2
@@ -303,7 +303,7 @@
     return $result
 }
 
-proc_doc km_object_type_private_p {object_type_id} {
+ad_proc km_object_type_private_p {object_type_id} {
     Checks if an object type is not visible to the public.
 } {
     set context_id [ad_conn package_id]