Index: openacs-4/packages/cms/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/form-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/cms/tcl/form-procs.tcl	17 Sep 2002 21:43:09 -0000	1.20
+++ openacs-4/packages/cms/tcl/form-procs.tcl	18 Sep 2002 03:58:40 -0000	1.21
@@ -1493,16 +1493,21 @@
       query {
 	#set content_type content_revision
 	set item_id {}
-        switch $param(param_type) {
-            onevalue {
-                set value [db_string set_content_values $param(value)]
+        if [catch {
+            switch $param(param_type) {
+            
+                onevalue {
+                    set value [db_string set_content_values $param(value)]
+                }
+                onelist {
+                    set value [db_list set_content_values $param(value)]
+                }
+                multilist {
+                    set value [db_list_of_lists set_content_values $param(value)]
+                }             
             }
-            onelist {
-                set value [db_list set_content_values $param(value)]
-            }
-            multilist {
-                set value [db_list_of_lists set_content_values $param(value)]
-            }
+        }] {
+            set value ""
         }
       }
       default {