Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -r1.4.2.4 -r1.4.2.5
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	13 Jan 2005 01:27:07 -0000	1.4.2.4
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	13 Jan 2005 23:39:19 -0000	1.4.2.5
@@ -60,10 +60,10 @@
 
     @param creation_ip
 
-    @param attributes A list of pairs of additional attributes and
+    @param attributes A list of lists of pairs of additional attributes and
     their values to pass to the constructor. Each pair is a list of two
      elements: key => value such as
-    [list attribute value attribute value]
+    [list [list attribute value] [list attribute value]]
 
     @return 
     
@@ -96,7 +96,8 @@
 		lappend valid_attributes [lindex $type_attribute 2]
 	    }
 	}
-	foreach {attribute_name attribute_value} $attributes {
+	foreach attribute_pair $attributes {
+            foreach {attribute_name attribute_value} $attribute_pair {break}
 	    if {[lsearch $valid_attributes $attribute_name] > -1}  {
 
                 # first add the column name to the list