diff --git a/silica/classes.lisp b/silica/classes.lisp
index d28142565ad2801631493901ccbdca421848a0c5..6c7aa9e566121e9b9c8b3cae6d7abce06072c48b 100644
--- a/silica/classes.lisp
+++ b/silica/classes.lisp
@@ -43,7 +43,7 @@
      (mapping-cache :initform
 		    #+(or aclpc acl86win32) (cons nil nil)
 		    #-(or aclpc acl86win32) (mapping-cache-initform))
-#+(or aclpc acl86win32)
+#+(or aclpc acl86win32 (and))
      (undefined-text-style :initform *undefined-text-style*
                            :accessor port-undefined-text-style)
      ;; When this is true, the text style to device font mapping is done
diff --git a/utils/packages.lisp b/utils/packages.lisp
index cdab7f39949e682c09cacc31b5d39a517acaaaf4..dd77de99e933af877ba2c818d4297412f29e3452 100644
--- a/utils/packages.lisp
+++ b/utils/packages.lisp
@@ -3031,7 +3031,7 @@
     *ports*
     *standard-character-set*
     *all-character-sets*
-    #+(or aclpc acl86win32) *undefined-text-style*
+    #+(or aclpc acl86win32 (and)) *undefined-text-style*
     +highlighting-line-style+
     activate-gadget-event
     add-sheet-callbacks
@@ -3184,7 +3184,7 @@
     port-set-sheet-grabbed-pointer-cursor
     port-terminated
     port-trace-thing
-    #+(or aclpc acl86win32) port-undefined-text-style
+    #+(or aclpc acl86win32 (and)) port-undefined-text-style
     process-event-locally
     pull-down-menu
     pull-down-menu-button