Index: openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	22 Mar 2008 18:31:32 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/tdom-procs.tcl	7 Aug 2017 23:48:00 -0000	1.4
@@ -24,8 +24,8 @@
     parent_node_object
     args
 } {
-    Returns a tdom object to the args given
-    If the tdom object doesn't exist or the value is null, return null
+    Returns a tDOM object to the args given
+    If the tDOM object doesn't exist or the value is null, return null
 
     <pre>
     Example -----------------------------------------------------
@@ -56,7 +56,7 @@
 ad_proc -public tdom::get_parent_node_object {
     child_node_object
 } {
-    Returns a tdom object for the parent node of the child node object passed in
+    Returns a tDOM object for the parent node of the child node object passed in
 } {
     set parent_node_object ""
     catch {set parent_node_object [$child_node_object parentNode]}
@@ -116,4 +116,9 @@
     catch {set node_xml [$node_object asXML]}
 
     return [string trim $node_xml]
-}
\ No newline at end of file
+}
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: