--- a/Font.st	Sun Jul 02 14:52:38 2000 +0200
+++ b/Font.st	Sun Jul 02 14:54:33 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libview' }"
+
 FontDescription subclass:#Font
 	instanceVariableNames:'device fontId replacementFont ascent descent width isFixedWidth
 		minWidth maxWidth maxAscent maxDescent'
@@ -205,16 +207,18 @@
     "
      replacement handling is not yet finished
     "
-    Replacements := Dictionary new.
+    Replacements isNil ifTrue:[
+        Replacements := Dictionary new.
 
-    Replacements at:'clean'                  put:'courier'.
-    Replacements at:'fixed'                  put:'courier'.
-    Replacements at:'new century schoolbook' put:'times'.
-    Replacements at:'lucida'                 put:'helvetica'.
-    Replacements at:'lucidabright'           put:'helvetica'.
-    Replacements at:'lucidatypewriter'       put:'courier'.
-    Replacements at:'charter'                put:'times'.
-    Replacements at:'terminal'               put:'courier'.
+        Replacements at:'clean'                  put:'courier'.
+        Replacements at:'fixed'                  put:'courier'.
+        Replacements at:'new century schoolbook' put:'times'.
+        Replacements at:'lucida'                 put:'helvetica'.
+        Replacements at:'lucidabright'           put:'helvetica'.
+        Replacements at:'lucidatypewriter'       put:'courier'.
+        Replacements at:'charter'                put:'times'.
+        Replacements at:'terminal'               put:'courier'.
+    ]
 ! !
 
 !Font class methodsFor:'instance creation'!
@@ -1110,6 +1114,6 @@
 !Font class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.75 1999-12-02 16:08:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Font.st,v 1.76 2000-07-02 12:53:08 cg Exp $'
 ! !
 Font initialize!