Index: openacs-4/packages/acs-tcl/tcl/acs-db-12-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-db-12-procs.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/acs-tcl/tcl/acs-db-12-procs.tcl	7 Feb 2023 17:27:02 -0000	1.1.2.5
+++ openacs-4/packages/acs-tcl/tcl/acs-db-12-procs.tcl	13 Aug 2024 09:06:04 -0000	1.1.2.6
@@ -298,19 +298,25 @@
                 # aim always for the definition with the most
                 # arguments.
                 #
+                #ns_log notice "key $key has argument_types [llength $argument_types] but this is less than nr_defined_args $nr_defined_args"
                 continue
             } elseif {[llength $argument_types] < $nr_defined_args} {
-                ns_log warning "generate_stubs: $key has lessf arguments in " \
+                ns_log warning "generate_stubs: $key has less arguments in " \
                     "function_definitions ($nr_defined_args) than in DB [llength $argument_types]"
                 continue
             }
+            # ns_log notice "adding $key /$nr_defined_args, package_name: '$package_name'"
             dict set db_definitions $key result_type $result_type
             dict set db_definitions $key types $argument_types
             dict set db_definitions $key package_name $package_name
             dict set db_definitions $key object_name $object_name
         }
         return [lmap {key entry} $db_definitions {
             if {![dict exists $entry package_name]} {
+                #
+                # When we have an entry in acs_function_args, but no
+                # such function in the database, complain.
+                #
                 ns_log warning "missing DB for $key: <$entry>"
                 continue
             }