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 ""