Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	28 Mar 2008 22:04:53 -0000	1.61
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Apr 2008 07:42:40 -0000	1.62
@@ -382,7 +382,7 @@
   } {
     Return the object type for the give id.
 
-    @retun object_type, typically an XOTcl class
+    @return object_type, typically an XOTcl class
   } {
     db_1row [my qn get_class] \
 	"select object_type from acs_objects where object_id=$id"
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	4 Apr 2008 09:34:18 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	10 Apr 2008 07:42:40 -0000	1.19
@@ -63,7 +63,7 @@
   } {
     Return the object type for an item_id or revision_id.
 
-    @retun object_type typically an XOTcl class
+    @return object_type typically an XOTcl class
   } {
     set object_type [ns_cache eval xotcl_object_type_cache \
                          [expr {$item_id ? $item_id : $revision_id}] {