Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	4 Oct 2003 09:23:22 -0000	1.15
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	5 Oct 2003 06:59:52 -0000	1.16
@@ -1033,7 +1033,7 @@
 	    
 	    # no value supplied for this arg spec
 	    
-	    if { [info exists apc_default_value($formal_name)] && ![info exists var] } {
+	    if { [info exists apc_default_value($formal_name)] } {
 		
 		# Only use the default value if there has been no complaints so far
 		# Why? Because if there are complaints, the page isn't going to serve anyway,
@@ -1047,7 +1047,7 @@
 		    }
 		}
 		
-	    } elseif { ![info exists apc_internal_filter($formal_name:optional)] && ![info exists var] } {
+	    } elseif { ![info exists apc_internal_filter($formal_name:optional)] } {
 		ad_complain -key $formal_name "You must supply a value for $formal_name"
 	    }
 	}