Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.52.2.9 -r1.52.2.10
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	30 Sep 2013 11:09:27 -0000	1.52.2.9
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	17 Oct 2013 09:12:26 -0000	1.52.2.10
@@ -146,8 +146,8 @@
  } {
     Appends adp start box if the show toggle is true
  } {
-     template::adp_append_code "if { \[::ds_show_p\] } {"
-     template::adp_append_code "    set __apidoc_path \[string range $stub \[string length \[::acs_root_dir\]\] end\].adp"
+     template::adp_append_code "if { \[info exists ::ds_show_p\] } {"
+     template::adp_append_code "    set __apidoc_path \[string range $stub \[string length \$::acs::root_dir\] end\].adp"
      template::adp_append_code "    set __stub_path \[join \[split $stub /\] \" / \"\]"
      template::adp_append_code "    append __adp_output \"<div class=\\\"\[::ds_adp_box_class\]\\\"><span class=\\\"\[::ds_adp_file_class\]\\\"><a href=\\\"/api-doc/content-page-view?source_p=1&path=\$__apidoc_path\\\" style=\\\"text-decoration: none;\\\">\$__stub_path</a></span><div class=\\\"\[::ds_adp_output_class\]\\\">\""
      template::adp_append_code "}"
@@ -159,7 +159,7 @@
  } {
     Appends adp end box if the show toggle is true
  } {
-     template::adp_append_code "if { \[::ds_show_p\] } {"
+     template::adp_append_code "if { \[info exists ::ds_show_p\] } {"
      template::adp_append_code "    append __adp_output \"</div></div><!-- END\n$stub (lvl \[info level\])-->\""
      template::adp_append_code "}"
  }