Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.131 -r1.132
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Jun 2018 15:01:01 -0000	1.131
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Jun 2018 17:20:48 -0000	1.132
@@ -1224,7 +1224,7 @@
     xo::xotcl_object_type_cache eval -tree_key $id $id {
       ::xo::dc 1row get_class "select object_type from acs_objects where object_id=:id"
       return $object_type
-    }]
+    }
   }
 
   ::xo::db::Class ad_proc get_instance_from_db {