diff -ur torta.orig/torta.lisp torta/torta.lisp
--- torta.orig/torta.lisp	2006-03-19 07:32:39.000000000 -0600
+++ torta/torta.lisp	2006-07-23 16:19:02.000000000 -0500
@@ -32,10 +32,7 @@
 ;					  :defaults (load-time-value *load-pathname*)))
  ;    (read stream))))
 
-(defparameter torta-binary-font
-  (load-time-value
-   (make-pathname :name "freeserif" :type "fo" :version nil
-					  :defaults (load-time-value *load-pathname*))))
+(defparameter torta-binary-font #p"/usr/share/common-lisp/source/torta/freeserif.fo")