Index: openacs-4/packages/new-portal/www/render_styles/all_in_one/render-element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/render_styles/all_in_one/render-element.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/new-portal/www/render_styles/all_in_one/render-element.tcl	7 Aug 2017 23:48:12 -0000	1.8
+++ openacs-4/packages/new-portal/www/render_styles/all_in_one/render-element.tcl	25 Jan 2018 12:03:21 -0000	1.9
@@ -26,14 +26,18 @@
     region:onevalue
 }
 
-if { [catch {set element_data [portal::evaluate_element -portal_id $portal_id -edit_p f $element_id $theme_id] }  errmsg ]  } { 
+ad_try {
+    portal::evaluate_element -portal_id $portal_id -edit_p f $element_id $theme_id
+
+} on error {errorMsg} {
     # An uncaught error happened when trying to evaluate the element.
     # If the error is in the element's "show" proc, the error will
     # be shown in the content of the portlet. This is for errors other
     # than with the "show" proc. 
-    ns_log error "\n\n *** Error in portal/www/render_sytles/all_in_one/render-element.tcl \n Uncaught exception when calling portal::evaluate_element \n with element_id $element_id\n\n ERROR $errmsg"
-    return -code error "error during rendering portal element $element_id"
-} else {
+    ns_log error "\n\n *** Error in portal/www/render_sytles/all_in_one/render-element.tcl\n Uncaught exception when calling portal::evaluate_element\n with element_id $element_id\n\n ERROR $errorMsg"
+    
+    return -code error "error during rendering portal element $element_id (render_style all_in_one)"
+} on ok {element_data} {
     # all is ok
     array set element $element_data
 }