Index: openacs-4/packages/acs-api-browser/www/proc-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-search.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	9 Jan 2018 13:33:13 -0000	1.17
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	23 Mar 2018 09:58:03 -0000	1.18
@@ -119,7 +119,7 @@
     #################
     if {$source_weight != 0} {
         set body [api_get_body $proc]
-        incr score [expr {$source_weight * [::apidoc::ad_keywords_score $query_string $source]}]
+        incr score [expr {$source_weight * [::apidoc::ad_keywords_score $query_string $body]}]
     }
 
     #####