Index: openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	13 Sep 2002 11:24:18 -0000	1.27
+++ openacs-4/packages/acs-bootstrap-installer/tcl/40-db-query-dispatcher-procs.tcl	18 Nov 2002 13:41:16 -0000	1.28
@@ -412,6 +412,10 @@
 	set sql [db_fullquery_get_querytext $fullquery]
     } else {
 	db_qd_log Debug "NO FULLQUERY FOR $statement_name --> using default SQL"
+        if { [empty_string_p $sql] } {
+            # The default SQL is empty, that implies a bug somewhere in the code.
+            error "No fullquery for $statement_name and default SQL is empty."
+        }
     }
 
     return $sql