diff --git a/tk-silica/xt-silica.lisp b/tk-silica/xt-silica.lisp
index a536e1f8dddfdc96f12f55a9cc7f5e94fa15afe4..547acf1ae84c737faf9b7ae59236d0672f53ffe4 100644
--- a/tk-silica/xt-silica.lisp
+++ b/tk-silica/xt-silica.lisp
@@ -20,7 +20,7 @@
 ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
 ;; applicable.
 ;;
-;; $fiHeader: xt-silica.lisp,v 1.76 93/04/07 09:07:31 cer Exp $
+;; $fiHeader: xt-silica.lisp,v 1.77 93/04/08 13:19:27 colin Exp $
 
 (in-package :xm-silica)
 
@@ -147,13 +147,14 @@
 	       '(:static-color :true-color :pseudo-color :direct-color))
        t))
 
-(defvar *xt-font-families* '((:fix "-*-courier-*-*-*-*-*-*-*-*-*-*-*-*")
-			     (:sans-serif "-*-helvetica-*-*-*-*-*-*-*-*-*-*-*-*")
-			     (:serif 
-			      ;; This causes problems on OpenWindows 3.0!
-			      ;; "-*-charter-*-*-*-*-*-*-*-*-*-*-*-*"
-			      "-*-new century schoolbook-*-*-*-*-*-*-*-*-*-*-*-*"
-			      "-*-times-*-*-*-*-*-*-*-*-*-*-*-*")))
+(defparameter *xt-font-families*
+    '((:fix "-*-courier-*-*-*-*-*-*-*-*-*-*-*-*")
+      (:sans-serif "-*-helvetica-*-*-*-*-*-*-*-*-*-*-*-*")
+      (:serif 
+       ;; This causes problems on OpenWindows 3.0!
+       ;; "-*-charter-*-*-*-*-*-*-*-*-*-*-*-*"
+       "-*-new century schoolbook-*-*-*-*-*-*-*-*-*-*-*-*"
+       "-*-times-*-*-*-*-*-*-*-*-*-*-*-*")))
 
 (defun disassemble-x-font-name (name)
   (let ((cpos 0)
@@ -189,7 +190,7 @@
 			      (if bold '(:bold :italic) :italic)
 			    (if bold :bold :roman)))
 		    (designed-point-size (parse-integer (ninth tokens)))
-		    (designed-y-resolution (parse-integer (nth 11 tokens)))
+		    (designed-y-resolution (parse-integer (nth 10 tokens)))
 		    (point-size (* (float designed-point-size)
 				   (/ designed-y-resolution
 				      screen-pixels-per-inch)))