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 -N -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 {