--- 00-proc-procs.tcl-original	Sun Aug  4 03:22:19 2002
+++ 00-proc-procs.tcl	Sun Aug  4 17:33:10 2002
@@ -5,6 +5,7 @@
 nsv_array set api_library_doc [list]
 nsv_array set proc_doc [list]
 nsv_array set proc_source_file [list]
+nsv_array set has_doc_string_p [list]
 
 proc number_p { str } {
   return [regexp {^[-+]?[0-9]*(.[0-9]+)?$} $str]
@@ -140,9 +141,11 @@
         # No doc string provided.
         array set doc_elements [list]
 	set doc_elements(main) ""
+	nsv_set has_doc_string_p $proc_name "f"
     } else {
         # Doc string was provided.
         ad_parse_documentation_string [lindex $args end-1] doc_elements
+	nsv_set has_doc_string_p $proc_name "t"
     }
     set code_block [lindex $args end]