Index: openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl	4 Jun 2005 12:50:03 -0000	1.4
+++ openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl	8 Jun 2005 11:36:46 -0000	1.5
@@ -49,9 +49,12 @@
               }
         }
     }
-    db_1row select_table_name {}
-    set columns [join $columns ", "]
-    db_0or1row select_object {} -column_array local
+
+    if {[llength $columns] > 0} {
+	db_1row select_table_name {}
+	set columns [join $columns ", "]
+	db_0or1row select_object {} -column_array local
+    }
 }
 
 ad_proc -public dtype::create {
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)
+	}
     }
 }