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.4 -r1.63.2.5
--- openacs-4/packages/xotcl-core/tcl/context-procs.tcl	14 Feb 2014 17:52:52 -0000	1.63.2.4
+++ openacs-4/packages/xotcl-core/tcl/context-procs.tcl	14 Aug 2014 14:51:21 -0000	1.63.2.5
@@ -226,7 +226,7 @@
       return
     }
 
-    if {[info exists ::ds_show_p] && [ds_database_enabled_p]} {
+    if {[info command ::ds_show_p] ne "" && [ds_database_enabled_p]} {
       ::xo::dc profile on
     }