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 -r1.16 -r1.17
--- openacs-4/packages/acs-api-browser/www/proc-search.tcl	7 Aug 2017 23:47:46 -0000	1.16
+++ openacs-4/packages/acs-api-browser/www/proc-search.tcl	9 Jan 2018 13:33:13 -0000	1.17
@@ -118,9 +118,8 @@
     ## Source Search:
     #################
     if {$source_weight != 0} {
-        if {![catch {set source [info body $proc]}]} {
-            incr score [expr {$source_weight * [::apidoc::ad_keywords_score $query_string $source]}] 
-        }    
+        set body [api_get_body $proc]
+        incr score [expr {$source_weight * [::apidoc::ad_keywords_score $query_string $source]}]
     }
 
     #####