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.147 -r1.148
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	31 May 2002 18:25:15 -0000	1.147
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	5 Jun 2002 21:24:50 -0000	1.148
@@ -1470,8 +1470,8 @@
                 [datasource_call \
                 $element(datasource_id) "GetPrettyName" [list]] 
 
-        set element(link) \
-                [datasource_call $element(datasource_id) "Link" [list]]
+        # no "Link" for raw elements
+        set element(link) {}
 
         # done with callbacks, now set config params
         set element(shadeable_p) $config(shadeable_p)