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.49 -r1.50
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Nov 2007 16:54:16 -0000	1.49
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Nov 2007 23:04:18 -0000	1.50
@@ -612,8 +612,8 @@
           if {[regexp "alias for \\\$$n" $line]} {
             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 ""
+              ns_log notice "--***** Could not retrieve argument name for $proname argument $n from line '$line' in $prosrc'"
+	      set fq_name arg$n
             }
             #lappend fq_names $fq_name
             set name $fq_name