Index: openacs-4/packages/acs-api-browser/www/set-default.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/set-default.tcl,v
diff -u -N -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/acs-api-browser/www/set-default.tcl	20 May 2016 19:52:59 -0000	1.2.2.3
+++ openacs-4/packages/acs-api-browser/www/set-default.tcl	25 May 2016 20:43:13 -0000	1.2.2.4
@@ -1,23 +1,14 @@
 ad_page_contract {
     Set user preferences for API browsing.
 } {
-    source_p:boolean,optional,notnull
+    source_p:boolean,notnull
     return_url:localurl
 }
 
-set found_p 0
+ad_set_client_property -persistent t acs-api-browser api_doc_source_p $source_p
 
-if { [info exists source_p] } {
-    ad_set_client_property -persistent t acs-api-browser api_doc_source_p $source_p
-    set found_p 1
-}
+ad_returnredirect $return_url
 
-if { $found_p } {
-    ad_returnredirect $return_url
-} else {
-    ad_return_error "Unknown Property" "Couldn't find any property to set"
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4