diff --git a/tk-silica/ol-frames.lisp b/tk-silica/ol-frames.lisp
index e3a71b7c33aae01d2ae68e358eeafb6658c7a4e9..5bd2a879bad89051f7292c135e8da834f1056270 100644
--- a/tk-silica/ol-frames.lisp
+++ b/tk-silica/ol-frames.lisp
@@ -20,7 +20,7 @@
 ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as
 ;; applicable.
 ;;
-;; $fiHeader: ol-frames.lisp,v 1.16 92/11/06 19:04:26 cer Exp $
+;; $fiHeader: ol-frames.lisp,v 1.17 92/11/09 19:55:54 cer Exp $
 
 
 (in-package :xm-silica)
@@ -75,7 +75,8 @@
 	 (font-args (and font (list :font font))))
 
     (tk::set-values menu-shell :title (or label "Choose"))
-    (when font (tk::set-values menu-shell :font font))
+    ;;-- Does not have a font resource
+    ;;    (when font (tk::set-values menu-shell :font font))
 
     (labels ((make-menu-button (item class parent &rest options)
 	       (let ((button