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 -r1.33 -r1.34
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	4 Sep 2007 19:50:18 -0000	1.33
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	5 Sep 2007 22:54:50 -0000	1.34
@@ -149,10 +149,13 @@
       if {[file readable $sql_file]} {
 	my log "Sourcing '$sql_file'"
 	db_source_sql_file $sql_file
+	::xo::db::Class create_all_functions
+	return 1
       } else {
 	my log "Could not source '$sql_file'"
       }
     }
+    return 0
   }
   ##########################################################
   #