Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision 49e814aada765bdbae90440bad2bc026eebfb413)
+++ tolbase/lib/toltk/tolbase.tcl	(revision 5bf4c62e57fa74bcd9e78afd40d248749644c5b1)
@@ -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