Index: openacs-4/packages/acs-subsite/lib/home.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/home.tcl,v
diff -u -r1.3.8.2 -r1.3.8.3
--- openacs-4/packages/acs-subsite/lib/home.tcl	10 Sep 2015 08:21:34 -0000	1.3.8.2
+++ openacs-4/packages/acs-subsite/lib/home.tcl	17 Sep 2015 11:29:52 -0000	1.3.8.3
@@ -48,15 +48,7 @@
 
 if {[parameter::get -parameter SolicitPortraitP -default 0]} {
     # we have portraits for some users 
-    if {![db_0or1row get_portrait_info "
-    select cr.publish_date, nvl(cr.title,'your portrait') as portrait_title,
-    nvl(cr.description,'no description') as portrait_description 
-    from cr_revisions cr, cr_items ci, acs_rels a
-    where cr.revision_id = ci.live_revision
-    and  ci.item_id = a.object_id_two
-    and a.object_id_one = :user_id
-    and a.rel_type = 'user_portrait_rel'
-    "]} {
+    if {![db_0or1row get_portrait_info {}]} {
 	set portrait_state "upload"
     } else {
         if { $portrait_title eq "" } {