Index: openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl,v
diff -u -r1.12.2.3 -r1.12.2.4
--- openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	24 May 2019 15:44:01 -0000	1.12.2.3
+++ openacs-4/packages/acs-tcl/tcl/30-xml-utils-procs.tcl	11 Jun 2019 18:55:08 -0000	1.12.2.4
@@ -23,9 +23,9 @@
 
     set ok_p 1
 
-    if {[llength [info commands tdom]] < 1} {
-	set xml_status_msg "tDOM is not installed! You must have tDOM installed, or nothing will work."
-	set ok_p 0
+    if {[info commands ::tdom] eq ""} {
+        set xml_status_msg "tDOM is not installed! You must have tDOM installed, or nothing will work."
+        set ok_p 0
     }
 
     return $ok_p
@@ -46,10 +46,10 @@
     @return parsed document object handle
 } {
     if {$persist_p} {
-	return [dom parse -simple $xml]
+        return [dom parse -simple $xml]
     } else {
-	dom parse -simple $xml doc
-	return $doc
+        dom parse -simple $xml doc
+        return $doc
     }
 }