Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.60 -r1.61
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	11 Nov 2001 17:49:43 -0000	1.60
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	11 Nov 2001 20:22:14 -0000	1.61
@@ -812,7 +812,8 @@
 	element_id = :element_id" {
 	    lappend config($key) $value
 	} if_no_rows {
-	    array set config {}
+	    # this element has no config, set up some defaults
+	    set config(shaded_p) "f"
 	}
 	
 	# shove the listified config into the element array
@@ -848,7 +849,7 @@
 	# pass the ds link, and the shaded_p param to the element
 	set element(link) $datasource(link)
 	set element(shaded_p) $config(shaded_p)
-	
+
 	return [array get element]
 
     }