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.150 -r1.151 --- openacs-4/packages/new-portal/tcl/portal-procs.tcl 21 Jun 2002 21:06:19 -0000 1.150 +++ openacs-4/packages/new-portal/tcl/portal-procs.tcl 28 Jun 2002 17:54:27 -0000 1.151 @@ -426,7 +426,7 @@ set one_theme_chunk " $name - $description" if {$current_theme_id == $theme_id } { - append theme_chunk "checked>$one_theme_chunk" + append theme_chunk " checked>$one_theme_chunk" } else { append theme_chunk ">$one_theme_chunk" }