Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql	10 Feb 2005 19:06:02 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs-oracle.xql	13 Feb 2005 02:10:31 -0000	1.4
@@ -19,7 +19,7 @@
         set    content = empty_blob()
         where  revision_id = :revision_id
         returning content into :1
-    </querytext>
+</querytext>
   </fullquery>
   
-</queryset>
\ No newline at end of file
+</queryset>
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.7 -r1.8
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	10 Feb 2005 01:40:11 -0000	1.7
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	13 Feb 2005 02:10:31 -0000	1.8
@@ -119,7 +119,8 @@
 		append attribute_names  ", ${attribute_name}"		
 		# create local variable to use for binding
 		set $attribute_name $attribute_value
-		append attribute_values ", :${attribute_name}"
+	ns_log notice "DAVEB CR REVISION NEW setting $attribute_name '${attribute_value}'"
+	append attribute_values ", :${attribute_name}"
 	    }
 	}
     }
Index: openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	1 Jul 2004 17:15:56 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/test/content-revision-test-procs.tcl	13 Feb 2005 02:10:31 -0000	1.3
@@ -34,7 +34,7 @@
                                             -item_id $first_item_id \
                                             -parent_id $first_folder_id]
 
-            aa_true "First item created" [expr $first_item_id == $returned_first_item_id]
+            aa_true "First item created $first_item_id" [expr $first_item_id == $returned_first_item_id]
 
             # create a revision
             set revision_id [db_nextval "acs_object_id_seq"]