Index: openacs-4/packages/acs-lang/www/admin/test/compile.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/test/compile.tcl,v
diff -u -N -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-lang/www/admin/test/compile.tcl	7 Aug 2017 23:47:57 -0000	1.2
+++ openacs-4/packages/acs-lang/www/admin/test/compile.tcl	19 Dec 2019 15:52:21 -0000	1.2.2.1
@@ -1,4 +1,10 @@
-set file [ns_queryget file]
+ad_page_contract {
+    This page will adp_compile any file in its same local directory
+    and display the result as HTML. Apparently a leftover from around
+    2002 and the GreenPeace times.
+} {
+    file:notnull
+}
 
 if { [regexp {\.\.|^/} $file] } {
 
Index: openacs-4/packages/acs-api-browser/lib/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/lib/search.tcl,v
diff -u -N -r1.7.2.2 -r1.7.2.3
--- openacs-4/packages/acs-api-browser/lib/search.tcl	19 Dec 2019 15:54:51 -0000	1.7.2.2
+++ openacs-4/packages/acs-api-browser/lib/search.tcl	19 Dec 2019 15:59:04 -0000	1.7.2.3
@@ -1,14 +1,11 @@
-#
-# API Browser search widget
-#
-# @cvs-id $Id$
-#
-# Expects: query_string:optional
-#
+ad_include_contract {
+    API Browser search widget
 
-if { ![info exists query_string] } {
-    set query_string {}
+    @cvs-id $Id$
+} {
+    {query_string ""}
 }
+
 set package_url [apm_package_url_from_key "acs-api-browser"]
 
 # AOLserver has dropped documentation, use NaviServer docs instead