Index: openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/object-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql	16 Oct 2003 23:05:41 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql	21 Oct 2003 22:23:24 -0000	1.3
@@ -6,7 +6,7 @@
 <fullquery name="acs_object_name.object_name_get">      
       <querytext>
       
-	begin :1 := acs_object.name(:object_id); end;
+	select acs_object.name(:object_id) from dual
     
       </querytext>
 </fullquery>
Index: openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/object-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql	16 Oct 2003 23:05:41 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql	21 Oct 2003 22:23:24 -0000	1.3
@@ -6,7 +6,7 @@
 <fullquery name="acs_object_name.object_name_get">      
       <querytext>
 
-        select acs_object__name(:object_id); 
+        select acs_object__name(:object_id);
     
       </querytext>
 </fullquery>
Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	16 Oct 2003 23:05:41 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	21 Oct 2003 22:23:24 -0000	1.4
@@ -38,9 +38,7 @@
     Returns the name of an object.
 
 } {
-    return [db_exec_plsql object_name_get {
-	begin :1 := acs_object.name(:object_id); end;
-    }]
+    return [db_string object_name_get {}]
 }
 
 ad_proc acs_object_type { object_id } {