Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/cms/tcl/form-procs.tcl	16 Sep 2002 10:56:14 -0000	1.19
+++ openacs-4/packages/cms/tcl/form-procs.tcl	17 Sep 2002 21:43:09 -0000	1.20
@@ -709,7 +709,7 @@
   ns_set put $bind_vars revision_id $revision_id
 
   # query for content_type and table_name
-  set info [db_1row addrev_get_content_type ""]
+  db_1row addrev_get_content_type "" -column_array info
 
   set insert_statement [attribute_insert_statement \
 	  $info(content_type) $info(table_name) $bind_vars $form_name]
@@ -1617,7 +1617,7 @@
       
   # Query for values from a previous revision
 
-  db_1row get_previous_version_values "" -column_array values
+  db_0or1row get_previous_version_values "" -column_array values
 
   # Set the form values, handling dates with the date acquire function
   foreach pair $attr_types {
@@ -1702,7 +1702,7 @@
       return $info
 
   } else {
-      uplevel 1 "db_1row get_type_info_2 {} -column_array $ref"
+      uplevel 1 "db_0or1row get_type_info_2 {} -column_array $ref"
   }
 }