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"
}