Index: tolbase/lib/toltk/markuphelper.tcl
===================================================================
--- tolbase/lib/toltk/markuphelper.tcl	(revision 50adfccb894bfed91b535baa3b38845fb4441618)
+++ tolbase/lib/toltk/markuphelper.tcl	(revision 9bb96e0beb56aecbbfeb43e7752d263c0cca7154)
@@ -180,7 +180,7 @@
         if { $s eq "\[" && $e eq "\]" } {
           Text "[ string range $line 1 end-1 ]:" \
-              -tags {b i} -br 1
+              -tags {b} -br 1
         } elseif { $s eq "{" && $e eq "}" } {
-          Text "[ string range $line 1 end-1 ]: " -tags {b i}
+          Text "[ string range $line 1 end-1 ]: " -tags {b}
         } else {
           Text \
@@ -189,5 +189,5 @@
       }
     }
-    return "<m>[ GetText ]</m>"
+    return [ GetText ]
   }
 }
Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision 50adfccb894bfed91b535baa3b38845fb4441618)
+++ tolbase/lib/toltk/tolbase.tcl	(revision 9bb96e0beb56aecbbfeb43e7752d263c0cca7154)
@@ -226,9 +226,5 @@
     array set normalProps [ CGetFont [ $widgets(output) cget -font ] ]
   }
-  if { $normalProps(-size) == 9 } {
-    # { Times 9 } does not look good on Linux
-    set normalProps(-size) 10
-  }
-  prefs set bodytext "Times $normalProps(-size)"
+  prefs set bodytext "$normalProps(-family) $normalProps(-size)"
   prefs set monotext "Courier $normalProps(-size)"
   foreach {f ds p} {header1 4 bold header2 2 bold header3 0 bold title 8 {} small -4 {}} {
@@ -541,7 +537,8 @@
       }
       MarkupHelper::Init
-      $data(notebookdb) set "info" \
-          [ MarkupHelper::BuildTolbaseInfo \
+      set fmtInfo [ MarkupHelper::BuildTolbaseInfo \
                 $icon $grammar $name $content $path $desc -objref $objRef ]
+      $data(notebookdb) set "info" $fmtInfo
+          
       $widgets(info,markupviewer) showpage "info"
       ActivateInfoWidget "markup"