Index: openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl	13 Sep 2002 11:10:33 -0000	1.2
@@ -1519,7 +1519,7 @@
 
     if {![info exists node(document:documentElement)]} {
 	return -code error "document has no document element"
-    } elseif {![string length node(document:doctype)]} {
+    } elseif {![string length $node(document:doctype)]} {
 	return -code error "no document type declaration given"
     } else {
 
Index: openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	12 Sep 2002 22:44:30 -0000	1.3
+++ openacs-4/packages/openfts-driver/tcl/openfts-driver-procs.tcl	13 Sep 2002 11:10:34 -0000	1.4
@@ -45,7 +45,7 @@
     if { ![info exists tables] } {
         set tables ""
     }
-    if { [info exists out] && [string length out] > 0 } {
+    if { [info exists out] && [string length $out] > 0 } {
         set out ",\n $out"
     } else {
         set out ""