Index: openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	15 Aug 2003 21:18:13 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload.tcl	24 Jul 2004 08:34:07 -0000	1.4
@@ -16,6 +16,7 @@
 set current_user_id [ad_verify_and_get_user_id]
 
 if [empty_string_p $user_id] {
+    subsite::upload_allowed
     set user_id $current_user_id
     set admin_p 0
 } else {