Index: openacs-4/packages/project-manager/lib/project-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/project-portlet.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/project-manager/lib/project-portlet.tcl	5 Jun 2005 22:58:35 -0000	1.4
+++ openacs-4/packages/project-manager/lib/project-portlet.tcl	8 Jun 2005 11:37:39 -0000	1.5
@@ -41,8 +41,10 @@
 dtype::get_object -object_id $project_id -object_type pm_project -array dattr -exclude_static
 
 multirow create dynamic_attributes name value
-foreach attr [array names dattr] {
-    if {[lsearch -exact $form_attributes $attr] > -1} {
-	multirow append dynamic_attributes "[_ acs-translations.pm_project_$attr]" $dattr($attr)
+if {[array exists dattr]} {
+    foreach attr [array names dattr] {
+	if {[lsearch -exact $form_attributes $attr] > -1} {
+	    multirow append dynamic_attributes "[_ acs-translations.pm_project_$attr]" $dattr($attr)
+	}
     }
 }