Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision c00d7f57156a3809dc6f7805552eba649fd2b148)
+++ tolbase/lib/toltk/tolbase.tcl	(revision 5e111e9a1c3cee9c3bd2b22f4214bece409b423c)
@@ -245,8 +245,8 @@
     array set normalProps [ CGetFont [ $widgets(output) cget -font ] ]
   }
-  prefs set bodytext "$normalProps(-family) $normalProps(-size)"
-  prefs set monotext "Courier $normalProps(-size)"
+  prefs set bodytext [ list $normalProps(-family) $normalProps(-size) ]
+  prefs set monotext [ list Courier $normalProps(-size) ]
   foreach {f ds p} {header1 4 bold header2 2 bold header3 0 bold title 8 {} small -4 {}} {
-    prefs set ${f}text  "Helvetica [ expr {$normalProps(-size) + $ds} ] $p"
+      prefs set ${f}text  [ list Helvetica [ expr {$normalProps(-size) + $ds} ] $p ]
   }
   prefs NotifyObservers