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.51 -r1.52
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Nov 2007 08:53:27 -0000	1.51
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Dec 2007 17:38:38 -0000	1.52
@@ -625,7 +625,7 @@
               regexp {^[vp]_(.+)$} $fq_name _ name
             }
             if {[regexp {^.*-- default +([^, ]+) *$} $line _ default]} {
-              set default [string trim $default ']
+              set default [string trim $default '\n\r]
             }
             lappend function_args [list [string toupper $name] $default]
             if {[incr n]>$pronargs} break