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.8 -r1.9
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	2 Sep 2002 13:18:46 -0000	1.8
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	16 Jan 2003 13:32:34 -0000	1.9
@@ -200,7 +200,10 @@
 }
 
 proc_doc ds_comment { value } { Adds a comment to the developer-support information for the current request. } {
-    ds_add comment $value
+
+    if { [ds_enabled_p] } { 
+        ds_add comment $value
+    }
 }
 
 proc ds_sweep_data {} {