Index: openacs-4/packages/xotcl-core/tcl/context-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/context-procs.tcl,v
diff -u -r1.63.2.2 -r1.63.2.3
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	30 Sep 2013 11:38:40 -0000	1.63.2.2
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	11 Feb 2014 11:53:08 -0000	1.63.2.3
@@ -226,6 +226,10 @@
       return
     }
 
+    if {[info exists ::ds_show_p] && [ds_database_enabled_p]} {
+      ::xo::dc profile on
+    }
+
     if {![info exists url]} {
       #my log "--CONN ns_conn url"
       set url [ns_conn url]
@@ -561,4 +565,11 @@
     return $query
   }
 
-}
\ No newline at end of file
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: