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 -N -r1.48 -r1.49
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 Nov 2007 11:08:42 -0000	1.48
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Nov 2007 16:54:16 -0000	1.49
@@ -613,6 +613,7 @@
             regexp {^[^a-zA-Z]+([a-zA-Z0-9_]+)\s} $line _ fq_name
             if {![info exists fq_name]} {
               ns_log notice "--***** no fq_name in '$line'"
+		set fq_name ""
             }
             #lappend fq_names $fq_name
             set name $fq_name