Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.77 -r1.78
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	1 Jul 2007 14:48:38 -0000	1.77
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	4 Jul 2007 09:22:33 -0000	1.78
@@ -262,7 +262,7 @@
 	unset default
       }
       if {$::xotcl::version < 1.5} {
-        my parameter $parameters
+        my parameter [concat [my info parameter] $parameters]
       }
     }
   }