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 -N -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 } {