Index: openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl	27 Oct 2003 10:09:10 -0000	1.5
+++ openacs-4/contrib/packages/bcms/tcl/bcms-procs.tcl	29 Oct 2003 15:00:29 -0000	1.6
@@ -234,7 +234,7 @@
     set values_list {}
     foreach one_property $properties {
         set property [lindex $one_property 0]
-        set value [lrange $one_property 1 [llength $one_property]]
+        set value [lindex $one_property 1]
         if {[regexp {(.+):noquote$} $property match property]} {
             #if noquote then use what is in the value
             lappend values_list $value